From 6eb76f9e4316c9898b5335bee74ff65f9be12c86 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 29 Apr 2008 13:07:47 +0000 Subject: [PATCH] [cmucl-ticket] #16: Read-time hash-table issue MAKE-HASH-TABLE-LOAD-FORM was missing a comma for the value of the :weak-p arg. --- code/hash-new.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/hash-new.lisp b/code/hash-new.lisp index 96b2d8ba3..f68c9ceb4 100644 --- a/code/hash-new.lisp +++ b/code/hash-new.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.46 2008/01/22 17:55:30 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/hash-new.lisp,v 1.47 2008/04/29 13:07:47 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1176,7 +1176,7 @@ :test ',(hash-table-test table) :size ',(hash-table-size table) :rehash-size ',(hash-table-rehash-size table) :rehash-threshold ',(hash-table-rehash-threshold table) - :weak-p (hash-table-weak-p table)) + :weak-p ,(hash-table-weak-p table)) (let ((values nil)) (declare (inline maphash)) (maphash #'(lambda (key value) -- GitLab