X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fseq.lisp;h=5fe1f9787935b48a56528e08564e1eebbbae0f48;hb=75ae7b7af9433418836b65cde48713ab5b8cd2fd;hp=67ade1bf2fd5230046aaad209261f1620e43e308;hpb=9dfd024c6fe1337ae7b76f0fd68b8f3208a6c987;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 67ade1b..5fe1f97 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -1550,14 +1550,14 @@
          (splice result)
          (current list)
          (end (or end (length list)))
-         (hash (and test
+         (hash (and (> (- end start) 20)
+                    test
                     (not key)
                     (not test-not)
                     (or (eql test #'eql)
                         (eql test #'eq)
                         (eql test #'equal)
                         (eql test #'equalp))
-                    ; (> (- end start) 20)
                     (make-hash-table :test test :size (- end start)))))
     (do ((index 0 (1+ index)))
         ((= index start))