Changeset 322

Timestamp:

Jan 17, 2004, 7:53:09 PM (21 years ago)

Author:

Gary Byers

Message:

SBIT, %SBITSET hande 0-dimensional bitvector case.

File:

• trunk/ccl/lib/arrays-fry.lisp (modified) (2 diffs)

trunk/ccl/lib/arrays-fry.lisp

@@ -31 +31 @@
   (apply #'aset bit-array stuff))
 
-(defun sbit (v &optional sub0 &rest others)
+(defun sbit (v &optional (sub0 nil sub0-p) &rest others)
   (declare (dynamic-extent others))
-  (if (or (null sub0) others)
-    (apply #'bit v sub0 others)
-     ( sbit (require-type v 'simple-bit-vector) sub0)))
+  (if sub0-p
+    (if others
+      (apply #'bit v sub0 others)
+      ( sbit (require-type v 'simple-bit-vector) sub0))
+    (bit v)))
 
 (defun %sbitset (v sub0 &optional (newval nil newval-p) &rest newval-was-really-sub1)
@@ -46 +48 @@
           (report-bad-arg v 'simple-bit-vector))
         (uvset v sub0 newval)))
-    (%bitset v)))
+    (%bitset v sub0)))
 
 (defun bit-and (bit-array1 bit-array2 &optional result-bit-array)