[Sbcl-commits] CVS: sbcl/tests compiler.pure.lisp,1.116,1.117

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12053/tests

Modified Files:
	compiler.pure.lisp 
Log Message:
0.8.19.38:
        * Fix MISC.535: CONSTANT-LVAR-P looks through CASTs.
        * Workaround lack of recursion recognition in XC for
          PRINCIPAL-LVAR-USE.


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -d -r1.116 -r1.117
--- compiler.pure.lisp	31 Jan 2005 19:25:39 -0000	1.116
+++ compiler.pure.lisp	23 Feb 2005 08:31:20 -0000	1.117
@@ -1716,3 +1716,15 @@
 	    (let ((b (make-array 64 :element-type 'bit :initial-element 0)))
 	      (setf (sbit b 63) 1)
 	      b)))))
+
+;;; MISC.535: compiler failure
+(let ((c0 #c(4196.088977268509d0 -15943.3603515625d0)))
+    (assert (not (funcall
+     (compile
+      nil
+      `(lambda (p1 p2)
+	 (declare (optimize speed (safety 1))
+		  (type (eql ,c0) p1)
+		  (type number p2))
+	 (eql (the (complex double-float) p1) p2)))
+     c0 #c(12 612/979)))))