0.8.16.4:

[sbcl.git] / tests / dynamic-extent.impure.lisp

diff --git a/tests/dynamic-extent.impure.lisp b/tests/dynamic-extent.impure.lisp
index 5bdd4ad..33c6186 100644 (file)
--- a/tests/dynamic-extent.impure.lisp
+++ b/tests/dynamic-extent.impure.lisp
@@ -113,4 +113,19 @@
   )
 
 \f
-(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))
+\f
+(sb-ext:quit :unix-status 104)