Last login: Sun Sep  4 16:56:13 on ttys000
res-dhcp-129-3-149-229:~ Ken$ 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]> 15
15
[2]> "Common Lisp with Objects"
"Common Lisp with Objects"
[3]> ipe

*** - SYSTEM::READ-EVAL-PRINT: variable IPE has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of IPE.
STORE-VALUE    :R2      Input a new value for IPE.
ABORT          :R3      Abort main loop
Break 1 [4]> :a
[5]> pi
3.1415926535897932385L0
[6]> (+ 2 3 5 7)
17
[7]> (*(+ 3 6 9)(- 8 5))
54
[8]> (double 5)

*** - EVAL: undefined function DOUBLE
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of (FDEFINITION 'DOUBLE).
RETRY          :R2      Retry
STORE-VALUE    :R3      Input a new value for (FDEFINITION 'DOUBLE).
ABORT          :R4      Abort main loop
Break 1 [9]> :a
[10]> (quote pie)
PIE
[11]> (quote(double 5))
(DOUBLE 5)
[12]> 'pie
PIE
[13]> '(double 5)
(DOUBLE 5)
[14]> (setf pie 'cherry)
CHERRY
[15]> pie
CHERRY
[16]> (setf dozen 12)
12
[17]> dozen
12
[18]> (defun double (x) (* x 2)) 
DOUBLE
[19]> (double 5)
10
[20]> (double dozen)
24
[21]> (double pi)
6.283185307179586477L0
[22]> (double pie)

*** - *: CHERRY is not a number
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [23]> :a
[24]> (bye)
Bye.
res-dhcp-129-3-149-229:~ Ken$