From: Alexey Dejneka <adejneka@comail.ru>
Date: Mon, 6 Mar 2006 04:35:50 +0000 (+0000)
Subject: Oops.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=49b994b480409bc9bb184945d7d66f5d15299042;p=sbcl.git

Oops.
---

diff --git a/BUGS b/BUGS
index 704bd06..b5f60a6 100644
--- 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.