daily pastebin goal
42%
SHARE
TWEET

Untitled

a guest Jan 22nd, 2019 56 in 15 hours
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. CL-USER> (handler-case (/ 3 0)
  2.   (division-by-zero (c)
  3.     (defvar *my-error* c)))
  4. ; in: HANDLER-CASE (/ 3 0)
  5. ;     (/ 3 0)
  6. ;
  7. ; caught STYLE-WARNING:
  8. ;   Lisp error during constant folding:
  9. ;   arithmetic error DIVISION-BY-ZERO signalled
  10. ;   Operation was (/ 3 0).
  11. ;
  12. ; compilation unit finished
  13. ;   caught 1 STYLE-WARNING condition
  14. *MY-ERROR*
  15.  
  16. ;;; O que quero capturar é a mensagem abaixo para imprimir posteriormente:
  17.  
  18. ; in: HANDLER-CASE (/ 3 0)
  19. ;     (/ 3 0)
  20. ;
  21. ; caught STYLE-WARNING:
  22. ;   Lisp error during constant folding:
  23. ;   arithmetic error DIVISION-BY-ZERO signalled
  24. ;   Operation was (/ 3 0).
  25. ;
  26. ; compilation unit finished
  27. ;   caught 1 STYLE-WARNING condition
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top