; file:   arraycon.lsp
; url:    http://rosettacode.org/wiki/Array_concatenation
; author: oofoe 2012-01-28

(println "Append lists:  " (append '(3 a 5 3) (sequence 1 9)))

(println "Multi append:  "
         (append '(this is)
                 '(a test)
                 '(of the emergency)
                 (sequence 3 1)))

(println "Append arrays: "
         (append '((x 56) (b 99)) '((z 34) (c 23) (r 88))))

(exit)