C

metawilm · Apr 22, 2017 · e8305d6 · e8305d6
1 parent 8e18091
commit e8305d6
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 2 deletions.
diff --git a/custom-hash-table.lisp b/custom-hash-table.lisp
@@ -195,6 +195,11 @@ Offending form: ~S" loop-form))))
     (cl:hash-table-rehash-threshold #1#))
 
   (defun hash-table-size (ht)
-    (cl:hash-table-size #1#)))
+    (cl:hash-table-size #1#))
+
+  (defun hash-table-test (ht)
+    (etypecase ht
+      (hash-table (cl:hash-table-test ht))
+      (custom-hash-table (cht.test ht)))))
 
 ) ;; #+
diff --git a/package.lisp b/package.lisp
@@ -24,6 +24,6 @@
   #+custom-hash-table-fallback
   (:export #:custom-hash-table)
   #+custom-hash-table-fallback
-  (:shadow #:hash-table-p #:gethash #:remhash #:hash-table-count #:maphash
+  (:shadow #:hash-table-p #:hash-table-test #:gethash #:remhash #:hash-table-count #:maphash
            #:with-hash-table-iterator #:clrhash #:hash-table-rehash-size
            #:hash-table-rehash-threshold #:hash-table-size))