From 424402274218149eb9ff7fc560b55534c4b2b70c Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 4 Aug 2007 21:06:28 +0200 Subject: Allegro CL compatibility. darcs-hash:04fca2e78b76d10a855512ab7716cb74a3e414c1 --- Lisp/weak-hash-tables.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Lisp/weak-hash-tables.lisp') diff --git a/Lisp/weak-hash-tables.lisp b/Lisp/weak-hash-tables.lisp index 6221d8a..ae8ad0c 100644 --- a/Lisp/weak-hash-tables.lisp +++ b/Lisp/weak-hash-tables.lisp @@ -23,11 +23,13 @@ #-cmu (progn - (declaim (inline make-weak-value-hash-table)) + (declaim (inline make-weak-value-hash-table (setf weak-gethash))) (defun make-weak-value-hash-table () (trivial-garbage:make-weak-hash-table :weakness :value :test 'eql)) - (setf (fdefinition 'weak-gethash) (fdefinition 'gethash) - (fdefinition '(setf weak-gethash)) (fdefinition '(setf gethash)))) + (setf (fdefinition 'weak-gethash) (fdefinition 'gethash)) + + (defun (setf weak-gethash) (value key hash-table) + (setf (gethash key hash-table) value))) -- cgit v1.2.3