/[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.37 by dtc, Thu Jul 6 04:34:03 2000 UTC revision 1.38 by dtc, Thu Jul 6 05:41:27 2000 UTC
# Line 350  Line 350 
350                    (fixnum                    (fixnum
351                     (+ rehash-size old-length))                     (+ rehash-size old-length))
352                    (float                    (float
353                     (the index (values (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.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5