Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15892/tests
Modified Files:
dynamic-extent.impure.lisp
Log Message:
0.8.14.17:
* Fix MISC.391.
Index: dynamic-extent.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/dynamic-extent.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- dynamic-extent.impure.lisp 13 Sep 2004 05:40:31 -0000 1.2
+++ dynamic-extent.impure.lisp 13 Sep 2004 15:56:15 -0000 1.3
@@ -113,4 +113,19 @@
)
-(sb-ext:quit :unix-status 104)
\ No newline at end of file
+;;; Bugs found by Paul F. Dietz
+(assert
+ (eq
+ (funcall
+ (compile
+ nil
+ '(lambda (a b)
+ (declare (optimize (speed 2) (space 0) (safety 0)
+ (debug 1) (compilation-speed 3)))
+ (let* ((v5 (cons b b)))
+ (declare (dynamic-extent v5))
+ a)))
+ 'x 'y)
+ 'x))
+
+(sb-ext:quit :unix-status 104)
|