Список не удовлетворяющий предикату P (с использованием функционала)

(defun get-while (x fp)
  (cond ((null x) nil)
        ((funcall fp (car x)) (append (list (car x)) (get-while (cdr x) fp)))
        (t nil)))
 
==> get-while
 
(get-while '(2 4 6 5 7 4) 'evenp)
 
==> (2 4 6)

(defun get-while (w p)
 (when w (when (funcall p (car w)) (cons (car w) (get-while (cdr w) p)))))
 
> (get-while '(2 4 6 5 7 4) #'evenp)
(2 4 6)
> (get-while nil #'evenp)
NIL

(defun get-while (w p)
  (when (and w (funcall p (car w))) (cons (car w) (get-while (cdr w) p))))
 
> (get-while '(2 4 6 5 7 4) #'evenp)
(2 4 6)
> (get-while nil #'evenp)
NIL

(defun get-while (w p)
  (cond ((null w) nil)
        ((funcall p (car w)) (cons (car w) (get-while (cdr w) p)))
        (nil)))
 
> (get-while '(2 4 6 5 7 4) #'evenp)
(2 4 6)
> (get-while nil #'evenp)
NIL

> (get-while '(2 4 6 5 -7 -4) #'plusp)
(2 4 6 5)
> (get-while '(-2 -4 6 5 7 4) #'minusp)
(-2 -4)

> (funcall #'* 8 9 10)
720

> (apply #'* 8 9 '(10))
720

> (apply #'* '(8 9 10))        
720

(defun get-while (w p)
  (let ((a (car w)))
    (cond ((null w) nil)
          ((funcall p a) (cons a (get-while (cdr w) p)))
          (nil))))
 
> (get-while '(2 4 6 5 7 4) #'evenp)
(2 4 6)