/[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.23 by wlott, Mon May 17 21:22:23 1993 UTC revision 1.24 by wlott, Sat May 22 21:17:58 1993 UTC
# Line 570  Line 570 
570                 (if eq-based                 (if eq-based
571                     (make-hash-table-bucket                     (make-hash-table-bucket
572                      :hash nil                      :hash nil
573                      :key (make-weak-pointer key)                      :key (if (hash-table-weak-p hash-table)
574                                 (make-weak-pointer key)
575                                 key)
576                      :value value                      :value value
577                      :next first-bucket)                      :next first-bucket)
578                     (make-hash-table-bucket                     (make-hash-table-bucket
# Line 582  Line 584 
584                 (if eq-based                 (if eq-based
585                     (let ((bucket (make-hash-table-eq-bucket                     (let ((bucket (make-hash-table-eq-bucket
586                                    :hash hashing                                    :hash hashing
587                                    :key (make-weak-pointer key)                                    :key (if (hash-table-weak-p hash-table)
588                                               (make-weak-pointer key)
589                                               key)
590                                    :value value                                    :value value
591                                    :next first-bucket                                    :next first-bucket
592                                    :linked t)))                                    :linked t)))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

  ViewVC Help
Powered by ViewVC 1.1.5