Skip to content
Snippets Groups Projects
Commit 231b06d8 authored by fgilham's avatar fgilham
Browse files

Fix bug in vector-push-extend where (adjust-array) is called but the

return value is discarded.  Since (adjust-array) may return a new
array, this is wrong.
parent 69d8f86a
No related branches found
No related tags found
No related merge requests found
......@@ -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/array.lisp,v 1.40 2006/06/30 18:41:22 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.41 2007/01/11 22:11:08 fgilham Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -670,7 +670,7 @@
(let ((fill-pointer (fill-pointer array)))
(declare (fixnum fill-pointer))
(when (= fill-pointer (%array-available-elements array))
(adjust-array array (+ fill-pointer extension)))
(setf array (adjust-array array (+ fill-pointer extension))))
(setf (aref array fill-pointer) new-el)
(setf (%array-fill-pointer array) (1+ fill-pointer))
fill-pointer))
......
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