don't assume only bits are looked for in bit-vectors

[sbcl.git] / src / code / bit-bash.lisp

diff --git a/src/code/bit-bash.lisp b/src/code/bit-bash.lisp
index 30c3c5b..28d9204 100644 (file)
--- a/src/code/bit-bash.lisp
+++ b/src/code/bit-bash.lisp
@@ -687,6 +687,7 @@
   (def %bit-position/0 (logandc2 #.(1- (expt 2 n-word-bits))))
   (def %bit-position/1 (identity)))
 (defun %bit-position (bit vector from-end start end)
-  (ecase bit
+  (case bit
     (0 (%bit-position/0 vector from-end start end))
-    (1 (%bit-position/1 vector from-end start end))))
+    (1 (%bit-position/1 vector from-end start end))
+    (otherwise nil)))