Создать список, состоящий из положительных элементов исходного списка

(defun get-positive (lst &optional (r nil))
  (cond ((null lst) r)
          ((plusp (car lst)) (get-positive (cdr lst) (cons (car lst) r)))
          (t (get-positive (cdr lst) r))))
 
;; или, если нужно в том же порядке, что и в исходном списке:
 
(defun get-positive (lst &optional (r nil))
  (cond ((null lst) (reverse r))
          ((plusp (car lst)) (get-positive (cdr lst) (cons (car lst) r)))
          (t (get-positive (cdr lst) r))))

(defun get-positive (lst &optional (r nil))
  (cond ((null lst) (reverse r))
         ((listp (car lst)) (get-positive (cdr lst) (cons (get-positive (car lst)) r)))
         ((plusp (car lst)) (get-positive (cdr lst) (cons (car lst) r)))
         (t (get-positive (cdr lst) r))))
 
==> get-positive
 
(get-positive'((1 6 (-5 2) -3 7)))
 
==> ((1 6 (2) 7))

(defun get-plusp (w &optional acc &aux (a (car w)) (d (cdr w)))
  (cond ((null w) (nreverse acc))
        ((listp a) (get-plusp d (cons (get-plusp a) acc)))
        ((plusp a) (get-plusp d (cons a acc)))
        ((get-plusp d acc))))
 
> (get-plusp '((1 6 (-5 2) -3 7)))
((1 6 (2) 7))

(defun get-plusp (w &optional acc &aux (a (car w)) (d (cdr w)))
  (if w
      (get-plusp d (cond ((listp a) (cons (get-plusp a) acc))
                         ((plusp a) (cons a acc))
                         (t acc)))
      (nreverse acc)))
 
> (get-plusp '((1 6 (-5 2) -3 7)))
((1 6 (2) 7))

(defun get-plusp (w)
  (loop for a in w
        if (listp a)
        collect (get-plusp a)
        else when (plusp a) collect a))
 
> (get-plusp '((1 6 (-5 2) -3 7)))
((1 6 (2) 7))