Last login: Thu Oct  6 19:37:17 on ttys002
Kenneths-MacBook-Pro:~ Ken$ ssh kpemblet@pi.cs.oswego.edu
kpemblet@pi.cs.oswego.edu's password: 
Permission denied, please try again.
kpemblet@pi.cs.oswego.edu's password: 
Permission denied, please try again.
kpemblet@pi.cs.oswego.edu's password: 
Welcome to Ubuntu 16.04.1 LTS (GNU/Linux 4.4.0-38-generic x86_64)

 * Documentation:  https://help.ubuntu.com
 * Management:     https://landscape.canonical.com
 * Support:        https://ubuntu.com/advantage

2 packages can be updated.
0 updates are security updates.


Last login: Fri Oct  7 00:07:04 2016 from 129.3.209.178
pi:~> cd public_html/coursework/csc416/assignments
pi:~/public_html/coursework/csc416/assignments> 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 "lp.l")
;; Loading file lp.l ...
;; Loaded file lp.l
T
[2]> (singleton-p '(palindrome))
T
[3]> (singleton-p '(Artificial Intelligence))
NIL
[4]> (singleton-p '(math please excuse my dear aunt sally))
NIL
[5]> (trace rac)
;; Tracing function RAC.
(RAC)
[6]> (rac '(palindrome))
1. Trace: (RAC '(PALINDROME))
1. Trace: RAC ==> PALINDROME
PALINDROME
[7]> (rac '(my dear aunt sally))
1. Trace: (RAC '(MY DEAR AUNT SALLY))
2. Trace: (RAC '(DEAR AUNT SALLY))
3. Trace: (RAC '(AUNT SALLY))
4. Trace: (RAC '(SALLY))
4. Trace: RAC ==> SALLY
3. Trace: RAC ==> SALLY
2. Trace: RAC ==> SALLY
1. Trace: RAC ==> SALLY
SALLY
[8]> (trace rdc)
;; Tracing function RDC.
(RDC)
[9]> (rdc '(palindrome))
1. Trace: (RDC '(PALINDROME))
1. Trace: RDC ==> NIL
NIL
[10]> (rdc '(excuse my dear aunt sally))
1. Trace: (RDC '(EXCUSE MY DEAR AUNT SALLY))
2. Trace: (RDC '(MY DEAR AUNT SALLY))
3. Trace: (RDC '(DEAR AUNT SALLY))
4. Trace: (RDC '(AUNT SALLY))
5. Trace: (RDC '(SALLY))
5. Trace: RDC ==> NIL
4. Trace: RDC ==> (AUNT)
3. Trace: RDC ==> (DEAR AUNT)
2. Trace: RDC ==> (MY DEAR AUNT)
1. Trace: RDC ==> (EXCUSE MY DEAR AUNT)
(EXCUSE MY DEAR AUNT)
[11]> untrace

*** - SYSTEM::READ-EVAL-PRINT: variable UNTRACE has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of UNTRACE.
STORE-VALUE    :R2      Input a new value for UNTRACE.
ABORT          :R3      Abort main loop
Break 1 [12]> :a
[13]> (untrace)
(RDC RAC)
[14]> trace snoc

*** - SYSTEM::READ-EVAL-PRINT: variable TRACE has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of TRACE.
STORE-VALUE    :R2      Input a new value for TRACE.
ABORT          :R3      Abort main loop
Break 1 [15]> :a
[16]> (trace snoc)
;; Tracing function SNOC.
(SNOC)
[17]> (snoc 'blue '())
1. Trace: (SNOC 'BLUE 'NIL)
1. Trace: SNOC ==> (BLUE)
(BLUE)
[18]> (snoc 'blue '(red))
1. Trace: (SNOC 'BLUE '(RED))
1. Trace: SNOC ==> (RED BLUE)
(RED BLUE)
[19]> (snoc 'blue '(cyan teal aqua sapphire))
1. Trace: (SNOC 'BLUE '(CYAN TEAL AQUA SAPPHIRE))
1. Trace: SNOC ==> (CYAN TEAL AQUA SAPPHIRE BLUE)
(CYAN TEAL AQUA SAPPHIRE BLUE)
[20]> (untrace)
(SNOC)
[21]> (trace pal)
;; Tracing function PAL.
(PAL)
[22]> (pal '())
1. Trace: (PAL 'NIL)
1. Trace: PAL ==> T
T
[23]> (pal '(palindrome))
1. Trace: (PAL '(PALINDROME))
1. Trace: PAL ==> T
T
[24]> (pal '(clos sloc))
1. Trace: (PAL '(CLOS SLOC))
1. Trace: PAL ==> NIL
NIL
[25]> (pal '(food drink food))
1. Trace: (PAL '(FOOD DRINK FOOD))
2. Trace: (PAL '(DRINK))
2. Trace: PAL ==> T
1. Trace: PAL ==> T
T
[26]> (pal '(1 2 3 4 5 4 3 2 1))
1. Trace: (PAL '(1 2 3 4 5 4 3 2 1))
2. Trace: (PAL '(2 3 4 5 4 3 2))
3. Trace: (PAL '(3 4 5 4 3))
4. Trace: (PAL '(4 5 4))
5. Trace: (PAL '(5))
5. Trace: PAL ==> T
4. Trace: PAL ==> T
3. Trace: PAL ==> T
2. Trace: PAL ==> T
1. Trace: PAL ==> T
T
[27]> (pal '(HEY HEY MY MY MY MY HEY HEY))
1. Trace: (PAL '(HEY HEY MY MY MY MY HEY HEY))
2. Trace: (PAL '(HEY MY MY MY MY HEY))
3. Trace: (PAL '(MY MY MY MY))
4. Trace: (PAL '(MY MY))
5. Trace: (PAL 'NIL)
5. Trace: PAL ==> T
4. Trace: PAL ==> T
3. Trace: PAL ==> T
2. Trace: PAL ==> T
1. Trace: PAL ==> T
T
[28]>