Code: Select all
(defun filter (lst &optional (fn #'identity))
(let ((acc nil))
(dolist (x lst)
(let ((val (funcall fn x)))
(if val (push val acc))))
(nreverse acc)))
Code: Select all
(defun filter (lst &optional (fn #'identity))
(let ((acc nil))
(dolist (x lst)
(let ((val (funcall fn x)))
(if val (push val acc))))
(nreverse acc)))