160 B
None
0 👍
0 👎
(defun take-while (list pred) (if (null list) () (let ((x (car list))) (if (pred x) (cons x (take-while (cdr list) pred)) ()))))
0 B
👍
👎
Comments
0 B
|👍
/👎
0 B
|👍
/👎