Remove duplicate code

SBCL uses exactly the same form for creating the hash table as the others, no need to split it out separately.
metawilm · Jan 2, 2017 · 61525e3 · 61525e3
1 parent 24bc086
commit 61525e3
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/custom-hash-table.lisp b/custom-hash-table.lisp
@@ -28,12 +28,10 @@ the function MAKE-FOO-HT is defined."
             (defun ,make (&rest options)
               #+ecl (declare (ignore options))
               (checking-reader-conditionals
-               #+(or allegro ccl lispworks)
+               #+(or allegro ccl lispworks sbcl)
                (apply #'make-hash-table :test ',test :hash-function ',hash-function options)
                #+cmu 
                (apply #'make-hash-table :test ',hash-table-test-sym options)
-               #+sbcl
-               (apply #'make-hash-table :test ',test :hash-function ',hash-function options)
                #-(or allegro ccl cmu lispworks sbcl)
                (make-custom-hash-table :test ',test
                                        :hash-function ',hash-function