Plaster
New
List
Login
common-lisp
default
anonymous
2023.10.17 16:15:56
CL-USER> (compile nil '(lambda (x) (if x 1 (/ 1 0)))) ; in: LAMBDA (X) ; (/ 1 0) ; ; caught STYLE-WARNING: ; Lisp error during constant folding: ; arithmetic error DIVISION-BY-ZERO signalled ; Operation was (/ 1 0). ; ; compilation unit finished ; caught 1 STYLE-WARNING condition #<FUNCTION (LAMBDA (X)) {538F312B}> T NIL CL-USER> (parachute::try-compile '(lambda (x) (if x 1 (/ 1 0)))) NIL NIL T #<DIVISION-BY-ZERO {10055C50B3}>
Raw
Annotate
Repaste
Edit