From: Alexey Dejneka <adejneka@comail.ru>
Date: Wed, 22 Jan 2003 08:45:35 +0000 (+0000)
Subject: 0.7.11.14:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2cfe71c73474a0ed2b7af8b4a711d980c8bb0b25;p=sbcl.git

0.7.11.14:
        One more bug.
---

diff --git a/BUGS b/BUGS
index f4f8464..27db05a 100644
--- a/BUGS
+++ b/BUGS
@@ -1197,6 +1197,7 @@ WORKAROUND:
   (foo 4) => segmentation violation
 
   (see usage of CONTINUATION-ASSERTED-TYPE in USE-RESULT-CONSTRAINTS)
+  (see also bug 236)
 
   b.
   (declaim (optimize (speed 2) (safety 3)))
@@ -1235,6 +1236,23 @@ WORKAROUND:
   Without (DECLARE (NOTINLINE MAPCAR)), Python cannot derive that Z is
   LIST.
 
+236: "THE semantics is broken"
+
+  (defun foo (a f)
+    (declare (optimize (speed 2) (safety 0)))
+    (+ 1d0
+       (the double-float
+         (multiple-value-prog1
+             (svref a 0)
+           (unless f (return-from foo 0))))))
+
+  (foo #(4) nil) => SEGV
+
+  VOP selection thinks that in unsafe code result type assertions
+  should be valid immediately. (See also bug 233a.)
+
+  The similar problem exists for TRULY-THE.
+
 DEFUNCT CATEGORIES OF BUGS
   IR1-#:
     These labels were used for bugs related to the old IR1 interpreter.
diff --git a/version.lisp-expr b/version.lisp-expr
index 2ba3a60..ecf3347 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -18,4 +18,4 @@
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
 
-"0.7.11.13"
+"0.7.11.14"