;; Dribble of #<IO TERMINAL-STREAM> started on 2012-05-09 21:34:51.
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\lisp1.txt">
[3]> (setq z '(a b c))
(A B C)
[4]> (car (rlpacd (cddr z) z))

*** - EVAL: undefined function RLPACD
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of (FDEFINITION 'RLPACD).
RETRY          :R2      Retry
STORE-VALUE    :R3      Input a new value for (FDEFINITION 'RLPACD).
ABORT          :R4      Abort main loop
Break 1 [5]> abort
[6]> (car (rplacd (cddr z) z))
C
[7]> (car z)
A
[8]> (cadr z)
B
[9]> (caddr z)
C
[10]> (cadddr z)
A
[11]> (rplacd (cddr z) 'd)
(C . D)
[12]> z
(A B C . D)
[13]> (setq l1 '(a b))
(A B)
[14]> (append l1 '(c d))
(A B C D)
[15]> (setq l2 (append l1 '(c d)))
(A B C D)
[16]> l1
(A B)
[17]> l2
(A B C D)
[18]> (eq l1 l2)
NIL
[19]> (setq l3 (nconc l1 '(c d)))
(A B C D)
[20]> (eq l1 l3)
T
[21]> (numberp 5)
T
[22]> (typep 5 'number)
T
[23]> z
(A B C . D)
[24]> (type-of z)
CONS
[25]> (type-of ())
NULL
[26]> (symbolp z)
NIL
[27]> (symbolp 'z)
T
[28]> t
T
[29]> t
T
[30]> (symbolp 'z)
T
[31]> (dribble)
;; Dribble of #<IO TERMINAL-STREAM> finished on 2012-05-09 21:51:10.