X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Farray.pure.lisp;h=513a6d8b5cf964abe7357eb65481696b0ac47b6c;hb=3aaed55326303bb377c4821c5e83b2e4e9c538fc;hp=4e665edfc92256cbe57f1154bfa17c8ee830c44c;hpb=8a55e8e2feb7fd0faaaed6d420beec97dade94e4;p=sbcl.git

diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp
index 4e665ed..513a6d8 100644
--- a/tests/array.pure.lisp
+++ b/tests/array.pure.lisp
@@ -79,12 +79,3 @@
 				  (aref rmdr ,i)))
 		       vector)
 		      0))))
-#|
-(assert (= (funcall 
-            (lambda (rmdr) 
-              (declare (type (simple-array bit (*)) rmdr)
-                       (optimize (speed 3) (safety 0)))
-              (aref rmdr 0))
-            #*00000000000000000000000000000001000000000)
-           0))
-|#
\ No newline at end of file