;; Dribble of #<IO TERMINAL-STREAM> started on 2012-05-09 20:13:36.
#<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\log.txt">
[66]> (read)
4
4
[67]> (read)
(2 3 4)
(2 3 4)
[68]> 
(prog1 (setq s (read)) (print s)) 
(2 3 4)
(2 3 4) 
(2 3 4)
[69]> 
(prog1 (setq s (read)) s) 
(* 3 4)
(* 3 4)
[70]> 
(prog1 (setq s (read)) (setq r s) (print r)) 
(* 3 4)
(* 3 4) 
(* 3 4)
[71]> 
12.5e3
12500.0
[72]> "334ddeer"
"334ddeer"
[73]> "a"
"a"
[74]> "aa"
"aa"
[75]> aa

*** - SYSTEM::READ-EVAL-PRINT: variable AA has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of AA.
STORE-VALUE    :R2      Input a new value for AA.
ABORT          :R3      Abort main loop
Break 1 [76]> abort
[77]> "a bbb ccc"
"a bbb ccc"
[78]> (setq s "aa bbbb ccc")
"aa bbbb ccc"
[79]> s
"aa bbbb ccc"
[80]> (print s)

"aa bbbb ccc" 
"aa bbbb ccc"
[81]> (prin1 s)
"aa bbbb ccc"
"aa bbbb ccc"
[82]> (terpri)

NIL
[83]> (pprint '(a b c d (b d)))

(A B C D (B D))

[84]> '(lev1 (lev2 (lev3 (lev4 (lev5 (lev6 (lev7 (lev8 (lev9 (lev10 (lev11 (lev12))))))))))))
(LEV1
 (LEV2
  (LEV3
   (LEV4 (LEV5 (LEV6 (LEV7 (LEV8 (LEV9 (LEV10 (LEV11 (LEV12))))))))))))
[85]> (setq *print-level* 4)
4
[86]> '(lev1 (lev2 (lev3 (lev4 (lev5 (lev6 (lev7 (lev8 (lev9 (lev10 (lev11 (lev12))))))))))))
(LEV1 (LEV2 (LEV3 (LEV4 #))))
[87]> (setq *print-level* 6)
6
[88]> '(lev1 (lev2 (lev3 (lev4 (lev5 (lev6 (lev7 (lev8 (lev9 (lev10 (lev11 (lev12))))))))))))
(LEV1 (LEV2 (LEV3 (LEV4 (LEV5 (LEV6 #))))))
[89]> (setq *print-level* 20)
20
[90]> '(lev1 (lev2 (lev3 (lev4 (lev5 (lev6 (lev7 (lev8 (lev9 (lev10 (lev11 (lev12))))))))))))
(LEV1
 (LEV2
  (LEV3
   (LEV4 (LEV5 (LEV6 (LEV7 (LEV8 (LEV9 (LEV10 (LEV11 (LEV12))))))))))))
[91]> (loop (princ '<-> ') (prin1 (apply (read) (read))) (terpri))

*** - READ from
       #<INPUT CONCATENATED-STREAM #<INPUT STRING-INPUT-STREAM>
         #<IO TWO-WAY-STREAM
           #<IO ECHO-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\log.txt">>
           #<OUTPUT BROADCAST-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER
               #P"C:\\log.txt">>>>
      : an object cannot start with #\)
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [92]> (loop (princ '<-> ') (prin1 (apply (read) (read))) (terpri))

*** - READ from
       #<INPUT CONCATENATED-STREAM #<INPUT STRING-INPUT-STREAM>
         #<IO TWO-WAY-STREAM
           #<IO ECHO-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\log.txt">>
           #<OUTPUT BROADCAST-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER
               #P"C:\\log.txt">>>>
      : an object cannot start with #\)
The following restarts are available:
ABORT          :R1      Abort debug loop
ABORT          :R2      Abort main loop
Break 2 [93]> abort
Break 1 [92]> abort
[94]> (loop (princ '<-> ') (prin1 (apply (read) (read))) (terpri))

*** - READ from
       #<INPUT CONCATENATED-STREAM #<INPUT STRING-INPUT-STREAM>
         #<IO TWO-WAY-STREAM
           #<IO ECHO-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER #P"C:\\log.txt">>
           #<OUTPUT BROADCAST-STREAM #<IO TERMINAL-STREAM>
             #<OUTPUT BUFFERED FILE-STREAM CHARACTER
               #P"C:\\log.txt">>>>
      : an object cannot start with #\)
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [95]> abort
[96]> (loop (princ "<-> ") (prin1 (apply (read) (read))) (terpri))
<-> + (3 4)7
<-> 

setq (q 5)
*** - APPLY: SETQ is a special operator, not a function
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [97]> abort
[98]> '(a b c d)
(A B C D)
[99]> '(a b (c e) d)
(A B (C E) D)
[100]> (cons 'a nil)
(A)
[101]> (cons a (cons b (cons c (cons d nil))))

*** - SYSTEM::READ-EVAL-PRINT: variable D has no value
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of D.
STORE-VALUE    :R2      Input a new value for D.
ABORT          :R3      Abort main loop
Break 1 [102]> abort
[103]> (cons 'a (cons 'b (cons 'c (cons 'd nil))))
(A B C D)
[104]> (cons 'a 'b)
(A . B)
[105]> (cons (cons 'd 'x) (cons nil 'a))
((D . X) NIL . A)
[106]> '(a b c d .e)
(A B C D .E)
[107]> '(a b c d .nil)
(A B C D .NIL)
[108]> '(a b c d . nil)
(A B C D)
[109]> (car '( a. b))
A.
[110]> (car '( a . b))
A
[111]> (cdr '( a . b))
B
[112]> (cdr '(a b c d . e))
(B C D . E)
[113]> (cdr (cdr '(a b c d . e)))
(C D . E)
[114]> (cdddr (cdr '(a b c d . e)))
E
[115]> (cdddr '(a b c d . e))
(D . E)
[116]> (cddddr '(a b c d . e))
E
[117]> (cdar '(a b c d . e))

*** - CDAR: A is not a list
The following restarts are available:
ABORT          :R1      Abort main loop
Break 1 [118]> abort
[119]> (cadr '(a b c d . e))
B
[120]> (numberp 5)
T
[121]> (numberp 'x)
NIL
[122]> (setq x 4)
4
[123]> (numberp 'x)
NIL
[124]> (numberp x)
T
[125]> (setq x "sssss")
"sssss"
[126]> (numberp x)
NIL
[127]> (stringp x)
T
[128]> (null nil)
T
[129]> (null 3)
NIL
[130]> (null (cdr '(a))
)
T
[131]> (null (cdr '(a b)))
NIL
[132]> (atomp nil)

*** - EVAL: undefined function ATOMP
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead of (FDEFINITION 'ATOMP).
RETRY          :R2      Retry
STORE-VALUE    :R3      Input a new value for (FDEFINITION 'ATOMP).
ABORT          :R4      Abort main loop
Break 1 [133]> abort
[134]> (atom nil)
T
[135]> (atom 3)
T
[136]> (atom 'x)
T
[137]> (setq x 34)
34
[138]> (atom x)
T
[139]> (setq x '(a b))
(A B)
[140]> x
(A B)
[141]> (atom x)
NIL
[142]> (list x)
((A B))
[143]> (listp x)
T
[144]> (listp nil)
T
[145]> (consp nil)
NIL
[146]> (consp '(a . c))
T
[147]> (equal 3 4)
NIL
[148]> (equal 3 3)
T
[149]> (equal 3 3.0)
NIL
[150]> (equal 3.0 3.0)
T
[151]> (equal '(a b c) '(a b c))
T
[152]> (equal '(b c) '(cdr (a b c)))
NIL
[153]> (equal '(b c) (cdr '(a b c)))
T
[154]> (setq y '(a b c d))
(A B C D)
[155]> (setq z (cdr y))
(B C D)
[156]> (equal z (cdr y))
T
[157]> (eq z (cdr y))
T
[158]> (list 'a 'b 'c 'd)
(A B C D)
[159]> (append '(a b) '(c) '(e d f))
(A B C E D F)
[160]> (setq '(a b c))

*** - SETQ: '(A B C) is not a symbol
The following restarts are available:
USE-VALUE      :R1      Input a value to be used instead.
ABORT          :R2      Abort main loop
Break 1 [161]> abort
[162]> (setq z '(a b c))
(A B C)
[163]> z
(A B C)
[164]>