(put the lost line)

diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index 043de60..30cc9dc 100644 (file)
--- 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))))