Skip to content
Snippets Groups Projects
Commit f9df8889 authored by toy's avatar toy
Browse files

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...
parent a2dc40a3
No related branches found
No related tags found
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment