Code Select dmi@stone:~$ cat >a.lsp
(define (func1)
(trace true)
(print "in func1"))
(define (func2)
(print "in func2"))
(func1)
(func2)
dmi@stone:~$ newlisp a.lsp
in func1
-----
(define (func2 )
#(print "in func2")#)
[-> 2 ] s|tep n|ext c|ont q|uit >