From 946ef3c28c189968e533ec991710b4661b378347 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 16 May 1992 16:12:44 +0000 Subject: [PATCH] Fixed a bug introduced into WITH-HASH-TABLE-ITERATOR. The macrolet body needed an extra level of quoting. --- code/hash.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/hash.lisp b/code/hash.lisp index bdf6cd687..aade9a868 100644 --- a/code/hash.lisp +++ b/code/hash.lisp @@ -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.16 1992/05/15 17:53:48 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash.lisp,v 1.17 1992/05/16 16:12:44 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -409,7 +409,7 @@ (setf bucket (svref vector index)) (,function))))) #',function)))) - (macrolet ((,function () (funcall ,n-function))) + (macrolet ((,function () '(funcall ,n-function))) ,@body)))) -- GitLab