i i i i i i i       ooooo    o        ooooooo   ooooo   ooooo
  I I I I I I I      8     8   8           8     8     o  8    8
  I  \ `+' /  I      8         8           8     8        8    8
   \  `-+-'  /       8         8           8      ooooo   8oooo
    `-__|__-'        8         8           8           8  8
        |            8     o   8           8     o     8  8
  ------+------       ooooo    8oooooo  ooo8ooo   ooooo   8

Welcome to GNU CLISP 2.49 (2010-07-07) <http://clisp.cons.org/>

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2010

Type :h and hit Enter for context help.

[1]> (load "lp.lsp")
;; Loading file lp.lsp ...
;; Loaded file lp.lsp
T
[2]> ( mapcar #'cons '( 1 2 3 ) '( ( a b ) ( c d ) ( e f ) ) )
((1 A B) (2 C D) (3 E F))
[3]> ( mapcan #'cons '( 1 2 3 ) '( ( a b ) ( c d ) ( e f ) ) )
(1 A B 2 C D 3 E F)
[4]> ( mapcar #'expt ( iota 5 ) ( duplicate 2 5 ) )
(1 32)
[5]> ( mapcan #'expt ( iota 5 ) ( duplicate 2 5 ) )
32
[6]> ( mapcar #'rac '( ( a b c ) ( d e f ) ) )
(C F)
[7]> ( mapcan #'rac '( ( a b c ) ( d e f ) ) )
F
[8]> ( mapcar #'list '( a b ) '( c d ) )
((A C) (B D))
[9]> ( mapcan #'list '( a b ) '( c d ) )
(A C B D)
[10]> ( mapcar #'snoc '( 1 2 3 ) '( ( a b ) ( c d ) ( e f ) ) )
((A B 1) (C D 2) (E F 3))
[11]> ( mapcan #'snoc '( 1 2 3 ) '( ( a b ) ( c d ) ( e f ) ) )
(A B 1 C D 2 E F 3)
[12]> ( mapcar #'iota '( 3 4 ) )
((1 2 3) (1 2 3 4))
[13]> ( mapcan #'iota '( 3 4 ) )
(1 2 3 1 2 3 4)
[14]> (bye)
Bye.