git.fiddlerwoaroof.com
Browse code

Fix hash-functions

Ed L authored on 25/02/2019 08:06:32
Showing 1 changed files
hash-functions.lisp
History View file @ 3863eee
... ... 
@@ -6,13 +6,13 @@
6 6 
                    :size (hash-table-size hash-table)
7 7 
                    :rehash-size (hash-table-rehash-size hash-table)
8 8 
                    :rehash-threshold (hash-table-rehash-threshold hash-table)))
9 
-#sbcl
9 
+#+sbcl
10 10 
 (defun empty-hash-table-like (hash-table)
11 11 
   (make-hash-table :test (hash-table-test hash-table)
12 12 
                    :size (hash-table-size hash-table)
13 13 
                    :rehash-size (hash-table-rehash-size hash-table)
14 14 
                    :rehash-threshold (hash-table-rehash-threshold hash-table)
15 
-                   :hash-function (sb-impl::hash-table-hash-fun hash-table)
15 
+                   :hash-function (sb-impl::hash-table-hash-fun hash-table)))
16 16
17 17 
 ;; (pick '("a" "b" "c")
18 18 
 ;;         { "a": { "b" : { "c" : 3 })