$ 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]> :(trace iota)
:||
[4]>
;; Tracing function IOTA.
(IOTA)
[5]> :(trace gen-list)
:||
[6]>
;; Tracing function GEN-LIST.
(GEN-LIST)
[7]> (iota 1)
1. Trace: (IOTA '1)
1. Trace: IOTA ==> (1)
(1)
[8]> (iota 7)
1. Trace: (IOTA '7)
2. Trace: (IOTA '6)
3. Trace: (IOTA '5)
4. Trace: (IOTA '4)
5. Trace: (IOTA '3)
6. Trace: (IOTA '2)
7. Trace: (IOTA '1)
7. Trace: IOTA ==> (1)
6. Trace: IOTA ==> (1 2)
5. Trace: IOTA ==> (1 2 3)
4. Trace: IOTA ==> (1 2 3 4)
3. Trace: IOTA ==> (1 2 3 4 5)
2. Trace: IOTA ==> (1 2 3 4 5 6)
1. Trace: IOTA ==> (1 2 3 4 5 6 7)
(1 2 3 4 5 6 7)
[9]> (gen-list 3 100)
1. Trace: (GEN-LIST '3 '100)
2. Trace: (GEN-LIST '2 '100)
3. Trace: (GEN-LIST '1 '100)
3. Trace: GEN-LIST ==> (100)
2. Trace: GEN-LIST ==> (100 100)
1. Trace: GEN-LIST ==> (100 100 100)
(100 100 100)
[10]> (gen-list 9 7)
1. Trace: (GEN-LIST '9 '7)
2. Trace: (GEN-LIST '8 '7)
3. Trace: (GEN-LIST '7 '7)
4. Trace: (GEN-LIST '6 '7)
5. Trace: (GEN-LIST '5 '7)
6. Trace: (GEN-LIST '4 '7)
7. Trace: (GEN-LIST '3 '7)
8. Trace: (GEN-LIST '2 '7)
9. Trace: (GEN-LIST '1 '7)
9. Trace: GEN-LIST ==> (7)
8. Trace: GEN-LIST ==> (7 7)
7. Trace: GEN-LIST ==> (7 7 7)
6. Trace: GEN-LIST ==> (7 7 7 7)
5. Trace: GEN-LIST ==> (7 7 7 7 7)
4. Trace: GEN-LIST ==> (7 7 7 7 7 7)
3. Trace: GEN-LIST ==> (7 7 7 7 7 7 7)
2. Trace: GEN-LIST ==> (7 7 7 7 7 7 7 7)
1. Trace: GEN-LIST ==> (7 7 7 7 7 7 7 7 7)
(7 7 7 7 7 7 7 7 7)
[11]> (bye)
Bye.