/[emacs]/emacs/lisp/emacs-lisp/cl-extra.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-extra.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.21 by monnier, Sun Oct 15 04:49:20 2000 UTC revision 1.21.14.1 by pot, Mon May 26 15:57:47 2003 UTC
# Line 637  Keywords supported:  :test :size Line 637  Keywords supported:  :test :size
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."

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.21.14.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26