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