/[cmucl]/src/code/hash.lisp
ViewVC logotype

Diff of /src/code/hash.lisp

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

revision 1.41.2.1 by gerd, Wed Mar 19 16:45:32 2003 UTC revision 1.45 by rtoy, Fri Mar 19 15:18:59 2010 UTC
# Line 14  Line 14 
14  ;;; Everything except SXHASH rewritten by William Lott.  ;;; Everything except SXHASH rewritten by William Lott.
15  ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000.  ;;; Equalp hashing by William Newman, Cadabra Inc, and Douglas Crosher, 2000.
16  ;;;  ;;;
17  (in-package :common-lisp)  (in-package :lisp)
18    
19    (intl:textdomain "cmucl")
20    
21  (export '(hash-table hash-table-p make-hash-table  (export '(hash-table hash-table-p make-hash-table
22            gethash remhash maphash clrhash            gethash remhash maphash clrhash
# Line 25  Line 27 
27  (in-package :ext)  (in-package :ext)
28  (export '(define-hash-table-test))  (export '(define-hash-table-test))
29    
30  (in-package :common-lisp)  (in-package :lisp)
31    
32    
33  ;;;; The hash-table structures.  ;;;; The hash-table structures.
# Line 51  Line 53 
53    (hash-fun (required-argument) :type function :read-only t)    (hash-fun (required-argument) :type function :read-only t)
54    ;;    ;;
55    ;; How much to grow the hash table by when it fills up.  If an index, then    ;; How much to grow the hash table by when it fills up.  If an index, then
56    ;; add that amount.  If a floating point number, then multiple it by that.    ;; add that amount.  If a floating point number, then multiply it by that.
57    (rehash-size (required-argument) :type (or index (single-float (1.0)))    (rehash-size (required-argument) :type (or index (single-float (1.0)))
58                 :read-only t)                 :read-only t)
59    ;;    ;;

Legend:
Removed from v.1.41.2.1  
changed lines
  Added in v.1.45

  ViewVC Help
Powered by ViewVC 1.1.5