X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Finterface.impure.lisp;h=33f7886cf922a78672dced9e2ed6d2a4a00dc6d9;hb=ab5427d31da2bd95805cccc8e47b8f43d3dd606d;hp=ac4776ab51bd2809c8dba6b11bbe1501ba65a7af;hpb=d5ec4e5681e0dbe44b3fbd5f35df9f9bde5ee337;p=sbcl.git

diff --git a/tests/interface.impure.lisp b/tests/interface.impure.lisp
index ac4776a..33f7886 100644
--- a/tests/interface.impure.lisp
+++ b/tests/interface.impure.lisp
@@ -264,5 +264,13 @@
   (assert (equal "foo" (documentation 'bug-643958-test 'function)))
   (setf (documentation 'bug-643958-test 'function) "bar")
   (assert (equal "bar" (documentation 'bug-643958-test 'function))))
+
+(with-test (:name :bug-881445
+            :skipped-on '(not :x86-64))
+  (let ((x (make-array (1- (expt 2 32)) :element-type '(unsigned-byte 8))))
+    (assert (> (sb-kernel:dynamic-usage) (length x)))
+    ;; prevent compiler from getting too smart...
+    (eval x)
+    t))
 
 ;;;; success