0.8.2.7:

[sbcl.git] / src / code / target-sxhash.lisp

diff --git a/src/code/target-sxhash.lisp b/src/code/target-sxhash.lisp
index 56df709..74e739b 100644 (file)
--- a/src/code/target-sxhash.lisp
+++ b/src/code/target-sxhash.lisp
@@ -84,7 +84,7 @@
   (declare (type index count))
   (let ((result 408967240))
     (declare (type fixnum result))
-    (when (typep string 'base-string)
+    (unless (typep string '(vector nil))
       (dotimes (i count)
        (declare (type index i))
        (mixf result