From: Nikodemus S. <de...@us...> - 2010-02-28 20:26:55
|
Update of /cvsroot/sbcl/sbcl/tests In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv15719/tests Modified Files: compiler.pure.lisp Log Message: 1.0.36.8: deal with environment argument in TYPEP transforms Thanks to Karol Swietlicki. Launchpad bug #309788 Index: compiler.pure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v retrieving revision 1.222 retrieving revision 1.223 diff -u -d -r1.222 -r1.223 --- compiler.pure.lisp 28 Feb 2010 19:37:10 -0000 1.222 +++ compiler.pure.lisp 28 Feb 2010 20:26:45 -0000 1.223 @@ -3446,3 +3446,12 @@ (if toff (list toff 0d0 0d0) (list 0d0 0d0 0d0))))))) (assert (equalp (vector 0.0d0 0.0d0 0.0d0) (funcall fun :toff nil))) (assert (equalp (vector 2.3d0 0.0d0 0.0d0) (funcall fun :toff 2.3d0))))) + +(with-test (:name :bug-309788) + (let ((fun + (compile nil + `(lambda (x) + (declare (optimize speed)) + (let ((env nil)) + (typep x 'fixnum env)))))) + (assert (not (ctu:find-named-callees fun))))) |