Microsoft Windows [Version 10.0.14393]
(c) 2016 Microsoft Corporation. All rights reserved.

C:\Users\Tara>clisp
  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 "C:/Users/Tara/Downloads/lp.l")
;; Loading file C:\Users\Tara\Downloads\lp.l ...
;; Loaded file C:\Users\Tara\Downloads\lp.l
T
[2]> (singleton-p '(hi))
T
[3]> (singleton-p '(hi hello))
NIL
[4]> (singleton-p '(there are 7 things in this list))
NIL
[5]> (trace (rac))
;; Tracing function RAC.
(RAC)
[6]> (rac '(one))
1. Trace: (RAC '(ONE))
1. Trace: RAC ==> ONE
ONE
[7]> (rac '(1 2 3 4))
1. Trace: (RAC '(1 2 3 4))
2. Trace: (RAC '(2 3 4))
3. Trace: (RAC '(3 4))
4. Trace: (RAC '(4))
4. Trace: RAC ==> 4
3. Trace: RAC ==> 4
2. Trace: RAC ==> 4
1. Trace: RAC ==> 4
4
[8]> (trace (rdc))
;; Tracing function RDC.
(RDC)
[9]> (rdc '(1))
1. Trace: (RDC '(1))
1. Trace: RDC ==> NIL
NIL
[10]> (rdc '(1 1 2 3 5))
1. Trace: (RDC '(1 1 2 3 5))
2. Trace: (RDC '(1 2 3 5))
3. Trace: (RDC '(2 3 5))
4. Trace: (RDC '(3 5))
5. Trace: (RDC '(5))
5. Trace: RDC ==> NIL
4. Trace: RDC ==> (3)
3. Trace: RDC ==> (2 3)
2. Trace: RDC ==> (1 2 3)
1. Trace: RDC ==> (1 1 2 3)
(1 1 2 3)
[11]> (untrace (rdc) (rac))

*** - UNTRACE: (RDC) is not a function name; try using a symbol instead
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [12]> (untrace)
(RDC RAC)
Break 1 [12]> :a
[13]> (trace (snoc))
;; Tracing function SNOC.
(SNOC)
[14]> (snoc 'blue ())
1. Trace: (SNOC 'BLUE 'NIL)
1. Trace: SNOC ==> (BLUE)
(BLUE)
[15]> (snoc 'blue '(red))
1. Trace: (SNOC 'BLUE '(RED))
2. Trace: (SNOC 'BLUE 'NIL)
2. Trace: SNOC ==> (BLUE)
1. Trace: SNOC ==> (RED BLUE)
(RED BLUE)
[16]> (snoc 'blue '(navy aqua teal sky))
1. Trace: (SNOC 'BLUE '(NAVY AQUA TEAL SKY))
2. Trace: (SNOC 'BLUE '(AQUA TEAL SKY))
3. Trace: (SNOC 'BLUE '(TEAL SKY))
4. Trace: (SNOC 'BLUE '(SKY))
5. Trace: (SNOC 'BLUE 'NIL)
5. Trace: SNOC ==> (BLUE)
4. Trace: SNOC ==> (SKY BLUE)
3. Trace: SNOC ==> (TEAL SKY BLUE)
2. Trace: SNOC ==> (AQUA TEAL SKY BLUE)
1. Trace: SNOC ==> (NAVY AQUA TEAL SKY BLUE)
(NAVY AQUA TEAL SKY BLUE)
[17]> (untrace)
(SNOC)
[18]> (trace (palindrome-p))
;; Tracing function PALINDROME-P.
(PALINDROME-P)
[19]> (palindrome-p ())
1. Trace: (PALINDROME-P 'NIL)
1. Trace: PALINDROME-P ==> T
T
[20]> (palindrome-p '(palindrome))
1. Trace: (PALINDROME-P '(PALINDROME))
1. Trace: PALINDROME-P ==> T
T
[21]> (palindrome-p '(clos snoc))
1. Trace: (PALINDROME-P '(CLOS SNOC))
1. Trace: PALINDROME-P ==> NIL
NIL
[22]> (palindrome-p '(food drink food))
1. Trace: (PALINDROME-P '(FOOD DRINK FOOD))
2. Trace: (PALINDROME-P '(DRINK))
2. Trace: PALINDROME-P ==> T
1. Trace: PALINDROME-P ==> T
T
[23]> (palindrome-p '(1 2 3 4 5 4 3 2 1))
1. Trace: (PALINDROME-P '(1 2 3 4 5 4 3 2 1))
2. Trace: (PALINDROME-P '(2 3 4 5 4 3 2))
3. Trace: (PALINDROME-P '(3 4 5 4 3))
4. Trace: (PALINDROME-P '(4 5 4))
5. Trace: (PALINDROME-P '(5))
5. Trace: PALINDROME-P ==> T
4. Trace: PALINDROME-P ==> T
3. Trace: PALINDROME-P ==> T
2. Trace: PALINDROME-P ==> T
1. Trace: PALINDROME-P ==> T
T
[24]> (palindrome-p '(hey hey my my my my hey hey))
1. Trace: (PALINDROME-P '(HEY HEY MY MY MY MY HEY HEY))
2. Trace: (PALINDROME-P '(HEY MY MY MY MY HEY))
3. Trace: (PALINDROME-P '(MY MY MY MY))
4. Trace: (PALINDROME-P '(MY MY))
5. Trace: (PALINDROME-P 'NIL)
5. Trace: PALINDROME-P ==> T
4. Trace: PALINDROME-P ==> T
3. Trace: PALINDROME-P ==> T
2. Trace: PALINDROME-P ==> T
1. Trace: PALINDROME-P ==> T
T
[25]> (bye)
Bye.