Last login: Sat Sep 10 15:16:53 on ttys000
Kenneths-MacBook-Pro:~ 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]> (setf x1 5)
5
[2]> (setf x2 9)
9
[3]> (setf y1 3)
3
[4]> (setf y2 6)
6
[5]> (sqrt(+(expt(- x2 x1) 2) (expt( - y2 y1) 2)))
5
[6]> ;(A B X C D)
(CAR (CDDR '(A B X C D)))
X
[7]> ;(A B (X) C D)
(CAAR (CDDR '(A B (X) C D)))
X
[8]> ;((A (B X C D)))
(CADR(CAR(CDAR '((A(B X C D))))))
X
[9]> ;INVESTIGATING COLORS
(setf colors '(red pink green blue orange yellow white))
(RED PINK GREEN BLUE ORANGE YELLOW WHITE)
[10]> (quote colors)
COLORS 
[11]> 'colors
COLORS
[12]> (describe 'colors)

COLORS is the symbol COLORS, lies in #<PACKAGE COMMON-LISP-USER>, is
accessible in 1 package COMMON-LISP-USER, a variable, value:
(RED PINK GREEN BLUE ORANGE YELLOW WHITE).

 #<PACKAGE COMMON-LISP-USER> is the package named COMMON-LISP-USER. It has 2
 nicknames CL-USER, USER.
 It imports the external symbols of 2 packages COMMON-LISP, EXT and exports
 no symbols, but no package uses these exports.

 (RED PINK GREEN BLUE ORANGE YELLOW WHITE) is a list of length 7.

[13]> (describe colors)

(RED PINK GREEN BLUE ORANGE YELLOW WHITE) is a list of length 7.

[14]> (type-of 'colors)
SYMBOL
[15]> (type-of colors)
CONS
[16]> (typep colors 'cons)
T
[17]> (typep colors 'list)
T
[18]> (typep colors 'symbol)
NIL
[19]> (typep 'colors 'cons)
NIL
[20]> (bye)
Bye.
Kenneths-MacBook-Pro:~ Ken$