/[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.9.2.4 by wlott, Wed Jul 31 19:13:47 1991 UTC revision 1.9.2.5 by wlott, Wed Jul 31 21:13:18 1991 UTC
# Line 64  Line 64 
64      (when scav-hook-p      (when scav-hook-p
65        (setf (hash-table-bucket-scavhook bucket)        (setf (hash-table-bucket-scavhook bucket)
66              (make-scavenger-hook              (make-scavenger-hook
67               key               :value key
68               #'(lambda ()               :function #'(lambda ()
69                   (push bucket (hash-table-needing-rehash table))                             (push bucket (hash-table-needing-rehash table))
70                   (setf (scavenger-hook-value                             (setf (scavenger-hook-value
71                          (hash-table-bucket-scavhook bucket))                                    (hash-table-bucket-scavhook bucket))
72                         nil)))))                                   nil)))))
73      bucket))      bucket))
74    
75    

Legend:
Removed from v.1.9.2.4  
changed lines
  Added in v.1.9.2.5

  ViewVC Help
Powered by ViewVC 1.1.5