From f9df88898843d1b971f62d50224a8e57be8e5663 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 2 Oct 2002 17:26:12 +0000
Subject: [PATCH] From Gerd Moellmann:

...if the alist ENTRY is longer than 8 elements, a hash-table is used
instead of an alist.  But, the variable ENTRY isn't set to that new
hash-table, so that the new entry is added to the original alist...
---
 pcl/vector.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pcl/vector.lisp b/pcl/vector.lisp
index 798c83416..2c0fc2936 100644
--- a/pcl/vector.lisp
+++ b/pcl/vector.lisp
@@ -26,7 +26,7 @@
 ;;;
 
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/vector.lisp,v 1.18 2002/09/07 13:16:49 pmai Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/vector.lisp,v 1.19 2002/10/02 17:26:12 toy Exp $")
 ;;;
 ;;; Permutation vectors.
 ;;;
@@ -114,7 +114,8 @@
 	    (dolist (table-entry entry)
 	      (setf (gethash (car table-entry) new-table-table)
 		    (cdr table-entry)))
-	    (setf (gethash ref *pv-key-to-pv-table-table*) new-table-table)))
+	    (setf (gethash ref *pv-key-to-pv-table-table*) new-table-table)
+	    (setq entry new-table-table)))
 	(when (listp entry)
 	  (if (null table-entry)
 	      (let ((new (cons pv-table pv-offset)))
-- 
GitLab