/[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.3 by wlott, Wed Jul 31 16:36:57 1991 UTC revision 1.9.2.4 by wlott, Wed Jul 31 19:13:47 1991 UTC
# Line 59  Line 59 
59    
60  (defun make-hash-table-bucket (table key hash value next scav-hook-p)  (defun make-hash-table-bucket (table key hash value next scav-hook-p)
61    (declare (type hash-table table) (type hash-value hash)    (declare (type hash-table table) (type hash-value hash)
62             (type hash-table-bucket next))             (type (or null hash-table-bucket) next))
63    (let ((bucket (%make-bucket key hash value next)))    (let ((bucket (%make-bucket key hash value next)))
64      (when scav-hook-p      (when scav-hook-p
65        (setf (hash-table-bucket-scavhook bucket)        (setf (hash-table-bucket-scavhook bucket)

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

  ViewVC Help
Powered by ViewVC 1.1.5