/[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.29.2.1 by pw, Tue May 23 16:36:32 2000 UTC revision 1.29.2.2 by dtc, Thu Jul 6 06:18:48 2000 UTC
# Line 350  Line 350 
350                    (fixnum                    (fixnum
351                     (+ rehash-size old-length))                     (+ rehash-size old-length))
352                    (float                    (float
353                     (the index (round (* rehash-size old-length))))))                     (the (values index t) (round (* rehash-size old-length))))))
354                old-length))                old-length))
355           (new-vector (make-array new-length :initial-element nil))           (new-vector (make-array new-length :initial-element nil))
356           #-gengc (weak-p (hash-table-weak-p table)))           #-gengc (weak-p (hash-table-weak-p table)))
# Line 456  Line 456 
456                         (weak-pointer-value (hash-table-bucket-key bucket))                         (weak-pointer-value (hash-table-bucket-key bucket))
457                       (assert valid)                       (assert valid)
458                       (when (eq key bucket-key)                       (when (eq key bucket-key)
459                         (return (values (hash-table-bucket-value bucket)                         (return (values (hash-table-bucket-value bucket) t))))))
                                        t))))))  
460                 (do ((bucket (svref vector index)                 (do ((bucket (svref vector index)
461                              (hash-table-bucket-next bucket)))                              (hash-table-bucket-next bucket)))
462                     ((null bucket) (values default nil))                     ((null bucket) (values default nil))

Legend:
Removed from v.1.29.2.1  
changed lines
  Added in v.1.29.2.2

  ViewVC Help
Powered by ViewVC 1.1.5