T
> (defun fact0 (n) (if (< n 2) 1 (* n fact0 (- n 1))))
FACT0
> (fact 0)
Error: The function FACT is not defined.
> (fact0 0)
1
> (fact0 1)
1
> (fact0 2)
Error: The variable FACT0 is unbound.
Happened in: #<Closure-FACT0: #a4baa4>
> (defun fact0 (n) (if (< n 2) 1 (* n (fact0 (- n 1)))))
FACT0
> (fact0 2)
2
> (fact0 3)
6
> (trace fact0)
(FACT0)
> (fact0 3)
Entering: FACT0, Argument list: (3)
 Entering: FACT0, Argument list: (2)
  Entering: FACT0, Argument list: (1)
  Exiting: FACT0, Value: 1
 Exiting: FACT0, Value: 2
Exiting: FACT0, Value: 6
6
> (untrace)
NIL
> (fact0 2)
2
> (defun memset (sex set)(cond
                           ((null set)          nil)
                           ((equal (car set) sex)   set)
                           ('esle (memset sex (cdr set)))_
))
MEMSET
> (memset 'a '(a b))
(A B)
> (memset 'c '(a b c d))
(C D)
> (memset 'a ())
NIL
> (memset 'd '(a b c))
NIL
> (memset 'b '(a b))
(B)
> (exit)