637 |
The Common Lisp keywords :rehash-size and :rehash-threshold are ignored." |
The Common Lisp keywords :rehash-size and :rehash-threshold are ignored." |
638 |
(let ((cl-test (or (car (cdr (memq :test cl-keys))) 'eql)) |
(let ((cl-test (or (car (cdr (memq :test cl-keys))) 'eql)) |
639 |
(cl-size (or (car (cdr (memq :size cl-keys))) 20))) |
(cl-size (or (car (cdr (memq :size cl-keys))) 20))) |
640 |
(make-hash-table :size cl-size :test cl-size))) |
(make-hash-table :size cl-size :test cl-test))) |
641 |
|
|
642 |
(defun cl-hash-table-p (x) |
(defun cl-hash-table-p (x) |
643 |
"Return t if OBJECT is a hash table." |
"Return t if OBJECT is a hash table." |