X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fdynamic-extent.impure.lisp;h=cb436c364d767dcf0c47adbfc7ef4412f5dd48d6;hb=9b55754d5328a5f44ee224d32865fc8dadee123b;hp=942be0d56e5649e6295ee62c6dca900576b4bafa;hpb=7c8658966e98e90b189de333810cb54fed621ed7;p=sbcl.git

diff --git a/tests/dynamic-extent.impure.lisp b/tests/dynamic-extent.impure.lisp
index 942be0d..cb436c3 100644
--- a/tests/dynamic-extent.impure.lisp
+++ b/tests/dynamic-extent.impure.lisp
@@ -145,5 +145,13 @@
               ((1 1 1) (1 1 1) (1 1 1))))
          4))
 
+;;; bug reported by Brian Downing: stack-allocated arrays were not
+;;; filled with zeroes.
+(defun-with-dx bdowning-2005-iv-16 ()
+  (let ((a (make-array 11 :initial-element 0)))
+    (declare (dynamic-extent a))
+    (assert (every (lambda (x) (eql x 0)) a))))
+(bdowning-2005-iv-16)
+
 
 (sb-ext:quit :unix-status 104)