diff options
Diffstat (limited to 'src/interp/hash.lisp')
| -rw-r--r-- | src/interp/hash.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/interp/hash.lisp b/src/interp/hash.lisp index b9f3463e..affd3f6e 100644 --- a/src/interp/hash.lisp +++ b/src/interp/hash.lisp @@ -78,14 +78,6 @@ (2 'EQUAL) (t "error unknown hash table class"))) -#+:CCL -(defun HASHTABLE-CLASS (table) - (case (hashtable-flavour table) - (0 'EQ) - (1 'EQL) - (2 'EQUAL) - (t (format nil "error unknown hash table class ~a" (hashtable-flavour table))))) - (define-function 'HCOUNT #'hash-table-count) ;17.4 Searching and Updating |