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)))))
|