Code: Select all
(loop with result = nil
for a in '(a b a c a d a b a c a d)
do (pushnew a result)
finally (return (nreverse result)))
;; result ==> (a b c d)
Code: Select all
(loop with result = nil
for a in '(a b a c a d a b a c a d)
do (pushnew a result)
finally (return (nreverse result)))
;; result ==> (a b c d)
Code: Select all
(defun foo
(if (bar)
(when (foobar) result)
(barfoo))
Code: Select all
(defun foo (if (bar) (foobar) (barfoo)))