Suggested solution to: Create a function which gets a list as parameter and creates a list in which only the original list's atoms exist in reversed order. example : list: (a (b c) d e)) output: (e d a)

reverse-filter-atoms.cl

(defun reverse-filter-atoms (l)
  (funcall
   ((lambda (f)
      ((lambda (g) (funcall g g))
       (lambda (g)
         (funcall f (lambda (&rest args) (apply (funcall g g) args))))))
    (lambda (fa)
      (lambda (l k)
        (if (endp l)
            (funcall k l)
            (funcall fa
                     (cdr l)
                     (lambda (r)
                       (funcall k
                                (if (atom (car l))
                                    (cons (car l) r)
                                    r))))))))
   l
   (lambda (l)
     (funcall 
      ((lambda (f)
         ((lambda (g) (funcall g g))
         (lambda (g)
           (funcall f (lambda (&rest args) (apply (funcall g g) args))))))
       (lambda (r)
         (lambda (l acc)
           (if (endp l)
               acc
               (funcall r (cdr l) (cons (car l) acc))))))
      l
      '()))))

Now that's simple!