[Sbcl-commits] CVS: sbcl/tests array.pure.lisp,1.10,1.11

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv6863/tests

Modified Files:
	array.pure.lisp 
Log Message:
0.7.12.6:
	Fix compiled calls to bit-array functions to allow an explicit
		opt-arg of NIL
	... and also fix the defknowns for %BITSET and %SBITSET, even though
		currently they always get SOURCE-TRANSFORMed away.
	... minimal tests for these two issues


Index: array.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- array.pure.lisp	26 Jan 2003 17:25:16 -0000	1.10
+++ array.pure.lisp	27 Jan 2003 17:45:46 -0000	1.11
@@ -96,3 +96,15 @@
   (assert (array-in-bounds-p a 7))
   (assert (not (array-in-bounds-p a 11)))
   (assert (not (array-in-bounds-p a (1+ most-positive-fixnum)))))
+
+;;; arrays of bits should work:
+(let ((a (make-array '(10 10) :element-type 'bit :adjustable t)))
+  (setf (bit a 0 0) 1)
+  (assert (= (bit a 0 0) 1)))
+(let ((a (make-array '(10 10) :element-type 'bit)))
+  (setf (sbit a 0 0) 1)
+  (assert (= (sbit a 0 0) 1)))
+
+(let ((x (copy-seq #*0011))
+      (y (copy-seq #*0101)))
+  (assert (equalp (bit-and x y nil) #*0001)))