$ clisp

<...snip...>

[1]> (load "palindromep.l")
;; Loading file palindromep.l ...
;; Loaded file palindromep.l
T
[2]> (load "constructors.l")
;; Loading file constructors.l ...
;; Loaded file constructors.l
T
[3]> (mapcar #'sqrt (iota 20))
(1 1.4142135 1.7320508 2 2.236068 2.4494898 2.6457512 2.828427 3 3.1622777
 3.3166249 3.4641016 3.6055512 3.7416575 3.8729835 4 4.1231055 4.2426405
 4.358899 4.472136)
[4]> (mapcar #'1+ (iota 20))
(2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21)
[5]> (mapcar #'expt (iota 20) (gen-list 20 3))
(1 8 27 64 125 216 343 512 729 1000 1331 1728 2197 2744 3375 4096 4913 5832
 6859 8000)
[6]> (bye)
Bye.