#

## 6.1.3.1 Examples of COLLECT clause

    ;; Collect all the symbols in a list.
     (loop for i in '(bird 3 4 turtle (1 . 4) horse cat)
           when (symbolp i) collect i)
    =>  (BIRD TURTLE HORSE CAT)

    ;; Collect and return odd numbers.
     (loop for i from 1 to 10
           if (oddp i) collect i)
    =>  (1 3 5 7 9)

    ;; Collect items into local variable, but don't return them.
     (loop for i in '(a b c d) by #'cddr
           collect i into my-list
           finally (print my-list))
    >>  (A C)
    =>  NIL

Copyright 1996-2001, Xanalys Inc. All rights reserved.