Oops.

diff --git a/BUGS b/BUGS
index 704bd06..b5f60a6 100644 (file)
--- a/BUGS
+++ b/BUGS
@@ -2155,5 +2155,5 @@ WORKAROUND:
   (fixed in sbcl-0.9.9.x)
 
 400: "aggressive constant folding"
-    (compile '(lambda () (the integer (/ 1 0))))
+    (compile nil '(lambda () (or t (the integer (/ 1 0)))))
   signals an error.