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)
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 #, is
accessible in 1 package COMMON-LISP-USER, a variable, value:
(RED PINK GREEN BLUE ORANGE YELLOW WHITE).
# 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$