$ clisp <...snip...> [1]> (load "palindromep.l") ;; Loading file palindromep.l ... ;; Loaded file palindromep.l T [2]> :(trace palindromep) :|| [3]> ;; Tracing function PALINDROMEP. (PALINDROMEP) [4]> (palindromep '(coffee)) 1. Trace: (PALINDROMEP '(COFFEE)) 1. Trace: PALINDROMEP ==> T T [5]> (palindromep '(clos sloc)) 1. Trace: (PALINDROMEP '(CLOS SLOC)) 1. Trace: PALINDROMEP ==> NIL NIL [6]> (palindromep '(end middle end)) 1. Trace: (PALINDROMEP '(END MIDDLE END)) 2. Trace: (PALINDROMEP '(MIDDLE)) 2. Trace: PALINDROMEP ==> T 1. Trace: PALINDROMEP ==> T T [7]> (palindromep '(1 2 3 4 5 3 2 1)) 1. Trace: (PALINDROMEP '(1 2 3 4 5 3 2 1)) 2. Trace: (PALINDROMEP '(2 3 4 5 3 2)) 3. Trace: (PALINDROMEP '(3 4 5 3)) 4. Trace: (PALINDROMEP '(4 5)) 4. Trace: PALINDROMEP ==> NIL 3. Trace: PALINDROMEP ==> NIL 2. Trace: PALINDROMEP ==> NIL 1. Trace: PALINDROMEP ==> NIL NIL [8]> (palindromep '(red yellow blue blue yellos red)) 1. Trace: (PALINDROMEP '(RED YELLOW BLUE BLUE YELLOS RED)) 2. Trace: (PALINDROMEP '(YELLOW BLUE BLUE YELLOS)) 2. Trace: PALINDROMEP ==> NIL 1. Trace: PALINDROMEP ==> NIL NIL [9]> (bye) Bye.