[no subject]

[EB@MIT-AI]

:XLISP
LISP 1984
Alloc? n
*
(defvst foo a b c)
;Loading DEFVST 78 
;Loading EXTEND 102 
;Loading EXTMAC 63 
;Loading DEFMAX 44 
;Loading VECTOR 23 
;Loading MLMAC 5 
;Loading MACAID 81 
;Loading DEFMACRO 115 
FOO
(setq prinlevel 2.)
2
(setq foo1 (cons-a-foo a '((1 2 3))))
;Loading LET 80 
#{FOO
;Loading TMLMAC 10  A }
(defun bar (x y z) nil)
BAR
(trace bar)
;Loading TRACE 66 
(BAR)
(bar foo1 '(a b) '(c d))
(1 ENTER BAR (#{FOO A }  ))
(1 EXIT BAR NIL)
(bar '(1 2) '(3 4) '(5 6))
(1 ENTER BAR ((1 2)(3 4)(5 6)))
(1 EXIT BAR NIL)
NIL
(bar (cons-a-foo) '(1 2) '(3 4))
(1 ENTER BAR (#{FOO} (1 2) (3 4))
(1 EXIT BAR NIL)
NIL