Advertisement
Guest User

Untitled

a guest
Apr 15th, 2019
152
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.59 KB | None | 0 0
  1.  
  2. cl-user> (handler-bind ((error (lambda (condition) (let ((*package* (find-package :cl))) (terpri) (princ condition) (terpri)) (invoke-restart 'ignore))))
  3. (restart-case hello (ignore (&rest args) (print args) nil))
  4. (restart-case (hello) (ignore (&rest args) (print args) nil)))
  5.  
  6. ;Compiler warnings :
  7. ; In an anonymous lambda form: Undeclared free variable hello
  8. ; In an anonymous lambda form: Undefined function hello
  9.  
  10. Unbound variable: common-lisp-user::hello
  11.  
  12. nil
  13. Undefined function common-lisp-user::hello called with arguments () .
  14.  
  15. nil
  16. nil
  17. cl-user>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement