femtolisp/tests/err.lsp

5 lines
99 B
Plaintext

(define (f x) (begin (list-tail '(1) 3) 3))
(f 2)
a
(trycatch a (lambda (e) (print (stacktrace))))