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