From: Alexey Dejneka <adejneka@comail.ru>
Date: Tue, 17 Jun 2003 07:26:49 +0000 (+0000)
Subject: (put the lost line)
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3cf5c8351289d390112a3842b6c03e17cee20211;p=sbcl.git

(put the lost line)
---

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 043de60..30cc9dc 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -456,3 +456,4 @@
   (let ((y (make-array 2 :element-type 'bit :initial-element 0)))
     (assert (equal y #*00))
     (funcall f y 1)
+    (assert (equal y #*10))))