Skip to content
Snippets Groups Projects
Commit 9f505d37 authored by wlott's avatar wlott
Browse files

Only interpose a weak-pointer between the hash-table-bucket-key and the

real key if the hash table is supposed to be weak.
parent ed3c374a
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.23 1993/05/17 21:22:23 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.24 1993/05/22 21:17:58 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -570,7 +570,9 @@
(if eq-based
(make-hash-table-bucket
:hash nil
:key (make-weak-pointer key)
:key (if (hash-table-weak-p hash-table)
(make-weak-pointer key)
key)
:value value
:next first-bucket)
(make-hash-table-bucket
......@@ -582,7 +584,9 @@
(if eq-based
(let ((bucket (make-hash-table-eq-bucket
:hash hashing
:key (make-weak-pointer key)
:key (if (hash-table-weak-p hash-table)
(make-weak-pointer key)
key)
:value value
:next first-bucket
:linked t)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment