/[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.4 by wlott, Wed Oct 10 16:31:23 1990 UTC revision 1.5 by wlott, Mon Nov 19 13:39:16 1990 UTC
# Line 120  Line 120 
120    (declare (fixnum new-length))    (declare (fixnum new-length))
121    "Rehashes a hash table and replaces the TABLE entry in the structure if    "Rehashes a hash table and replaces the TABLE entry in the structure if
122     someone hasn't done so already.  New vector is of NEW-LENGTH."     someone hasn't done so already.  New vector is of NEW-LENGTH."
123    (do ((new-vector (make-array new-length))    (do ((new-vector (make-array new-length :initial-element nil))
124         (i 0 (1+ i))         (i 0 (1+ i))
125         (size (hash-table-size structure))         (size (hash-table-size structure))
126         (hashing-function (case (hash-table-kind structure)         (hashing-function (case (hash-table-kind structure)
# Line 241  Line 241 
241                               :rehash-threshold rehash-threshold                               :rehash-threshold rehash-threshold
242                               :table                               :table
243                               (if (eq test 'equal)                               (if (eq test 'equal)
244                                   (make-array size)                                   (make-array size :initial-element nil)
245                                   (%primitive set-vector-subtype                                   (%primitive set-vector-subtype
246                                               (make-array size)                                               (make-array size
247                                                             :initial-element nil)
248                                               valid-hashing))                                               valid-hashing))
249                               :kind test)))                               :kind test)))
250    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5