(setf b '(car (a b)))
(CAR (A B))
> b
(CAR (A B))
> (setf boo '(car (a b)))
(CAR (A B))
> boo
(CAR (A B))
> (eval boo)
Error: The function A is not defined.
Happened in: #<Subr-TOP-LEVEL-LOOP: #a128d0>
> (car '(a b))
A
> (setf boo (car '(a b)))
A
> (setf bah '(+ 2 3))
(+ 2 3)
> )evasl bah)
Error: misplaced close paren
Happened in: #<Subr: #9f4c78>
> (eval bah)
5
> (car bah)
+
> (rest bah)
(2 3)
> bah
(+ 2 3)
> (cons (first bah) (rest bah))
(+ 2 3)
> (list + 2 3)
((CONS (FIRST BAH) (REST BAH)) 2 3)
> (list '+ '2 '3)
(+ 2 3)
> (list '(a) '(b))
((A) (B))
> (cons '(a) '(b))
((A) B)
> (cons 'a '(b))
(A B)
> (append 'a 'b)
Error: bad argument type - A
Happened in: #<Subr-APPEND: #9f3eb8>
> (append '(a) 'b)
(A . B)
> (cons 'a 'b)
(A . B)
> (setf dee (cons 'a 'b))
(A . B)
> dee
(A . B)
> (car dee)
A
> (cdr dee)
B
> (list 'a 'b)
(A B)
> (cons 'a (cons 'b '()))
(A B)
> (cons 'a (cons 'b nil))
(A B)
> nil
NIL
> ()
NIL
> '()
NIL
> (defun sec (lis) (first (rest lis)))
SEC
> (sec bah)
2
> bah
(+ 2 3)
> (defun th (lis) (first (rest (rest lis))))
TH
> (th bah)
3
> (caar bah)
Error: bad argument
Happened in: #<Subr-CAAR: #9f4618>
> (cadr bah)
2
> (setf goo (cons '* (rest bah)))
(* 2 3)
> (eval goo)
6
> (if t 1 2)
1
> (if nil 1 2)
2
> (defun fact0 (n) (if (< 1 n) 1 (* n (fact0 (- n 1)))))
FACT0
> (fact0 2)
1
> (fact0 3)
1
> (defun fact0 (n) (if (< n 1) 1 (* n (fact0 (- n 1)))))
FACT0
> (fact0 1)
1
> (fact0 2)
2
> (fact0 10)
3628800
> (fact0 100)
93326215443944152681699238856266700490715968264381621468592963895217599993229915608941463976156518286253697920827223758251185210916864000000000000000000000000
> (fact0 1000)
error: argument stack overflow
> (axit)
Error: The function AXIT is not defined.
> (exit)