; filter.l

(defun filter (predicate list)
  (cond
    ((null list)
      ()
    )
    ((funcall predicate (car list))
      (cons (car list) (filter predicate (cdr list)))
    )
    (t
      (filter predicate (cdr list))
    )
  )
)