Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- cl-user> (handler-bind ((error (lambda (condition) (let ((*package* (find-package :cl))) (terpri) (princ condition) (terpri)) (invoke-restart 'ignore))))
- (restart-case hello (ignore (&rest args) (print args) nil))
- (restart-case (hello) (ignore (&rest args) (print args) nil)))
- ;Compiler warnings :
- ; In an anonymous lambda form: Undeclared free variable hello
- ; In an anonymous lambda form: Undefined function hello
- Unbound variable: common-lisp-user::hello
- nil
- Undefined function common-lisp-user::hello called with arguments () .
- nil
- nil
- cl-user>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement