International Allegro CL Enterprise Edition
6.0 [Windows] (Oct 27, 2000 15:00)
Copyright (C) 1985-2000, Franz Inc., Berkeley, CA, USA.  All Rights Reserved.

CG/IDE Version: 1.389.2.40
;; Optimization settings: safety 1, space 1, speed 3, debug 2.
;; For a complete description of all compiler switches given the
;; current optimization settings evaluate (EXPLAIN-COMPILER-SETTINGS).

[changing package from "COMMON-LISP-USER" to "COMMON-GRAPHICS-USER"]
> 8
8
> x
Error: Attempt to take the value of the unbound variable `X'.
[condition type: UNBOUND-VARIABLE]
> (+ 10 15)
25
> (- (* 5 10) 5)
45
> (- * 5 10 5)
25
> (List 10 20 30)
(10 20 30)
> (first (List 10 20 30))
10
> (second (List 10 20 30))
20
> (car (List 10 20 30))
10
> (cdr (List 10 20 30))
(20 30)
> (cdr (list 10))
NIL
> (cadr (list 10 20 30))
20
> (caadr (list 10 20 30))
Error: Attempt to take the car of 20 which is not listp.
[condition type: SIMPLE-ERROR]
> (caddr (list 10 20 30))
30
> (nth 10 (list 1 2 3 4 5 6 7 8 9 10 11 12))
11
> (nth 0 (list 1 2 3 4 5 6 7 8 9 10 11 12))
1
> ;cdr = rest
EOF
Do you really want to kill process "Listener 1" [n]? n
> (append (list 10 20)
          (list 30 40))
(10 20 30 40)
> (setf x 54)
54
> x
54
> (setf y (list 10 20 30))
(10 20 30)
> y
(10 20 30)
> (setq z 40)
40
> z
40
> (setq z (list 10 20 30))
(10 20 30)
> z
(10 20 30)
> (append y z)
(10 20 30 10 20 30)
> (append x z)
Error: `54' is not of the expected type `LIST'
[condition type: TYPE-ERROR]
> (cons x z)
(54 10 20 30)
> x
54
> z
(10 20 30)
> (cons z x)
((10 20 30) . 54)
> (defun f (* x (+ y z)))
F
> (defun f (x y z) (* x (+ y z)))
F
> (defun f (x y z) (* x (+ y z)))
F
> (f 1 2 3)
5
> (quote xx)
XX
> 'xx
XX
> (setf zz 'xx)
XX
> zz
XX
> (setf zz 'x)
X
> (eval zz)
54
> (setf zz ''x)
'X
> (eval zz)
X
> (eval (eval zz))
54
> (< 5 6)
T
> (< 6 5)
NIL
> (Numberp 6)
T
> (numberp x)
T
> (numberp 'x)
NIL
> (atomp 'x)
Error: attempt to call `ATOMP' which is an undefined function.
[condition type: UNDEFINED-FUNCTION]
> (atomp x)
Error: attempt to call `ATOMP' which is an undefined function.
[condition type: UNDEFINED-FUNCTION]
> (symbolp x)
NIL
> (symbolp 'x)
T
> (cond 
   ((> 6 5)
    (print 'a)
    (print 'b))
   (t
    (print 'c)))

A 
B 
B
> (cond 
   ((> 5 6)
    (print 'a)
    (print 'b))
   (t
    (print 'c)))

C 
C
> (cond 
   ((> 6 5)
    (list 'a)
    (list 'b))
   (t
    (print 'c)))
Error: Illegal function object: 'A.
[condition type: PROGRAM-ERROR]
> (cond 
   ((> 6 5)
    (list 'a)
    (list 'b))
   (t
    (print 'c)))
(B)
> (setf l (list a b c))
Error: Attempt to take the value of the unbound variable `A'.
[condition type: UNBOUND-VARIABLE]
> (setf l '(a b c))
(A B C)
> (setf m '(a b c))
(A B C)
> (eq l m)
NIL
> (equal l m)
T
>