hyotang666

(defun flatten(tree)
  (let((result nil)
       (head(car tree))
       (tail(cdr tree)))
    (tagbody top
      (if(and(null tail)(null head))
        (return-from flatten (nreverse result))
        (if(consp head)
	        (progn
	          (push(cdr head)tail)

hyotang666

(defun find-all(item seq &rest args &key(test #'eql)test-not &allow-other-keys)
  (apply #'remove item seq :test(when test-not test-not)
                           :test-not(unless test-not test)args))