[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]


In KCL release 3 june 1987, VECTOR-PUSH-EXTEND signals an error when it
must extend an adjustable vector of length zero.  It should extend the
vector instead.  Vectors of length > 0 work correctly.

	staffa 14% kcl
	KCl (Kyoto Common Lisp)  June 3, 1987

	>(setq v (make-array 0 :fill-pointer 0 :adjustable t))
	>(vector-push-extend 'entry-0 v)	;should work

	Error: The index, 0, too large.
	Error signalled by VECTOR-PUSH-EXTEND.

	Broken at VECTOR-PUSH-EXTEND.  Type :H for Help.

	Top level.
	>(setq v2 (make-array 1 :fill-pointer 0 :adjustable t))
	>(vector-push-extend 'entry0 v2)	;does work


Jeff Dalton,                      JANET: J.Dalton@uk.ac.ed             
AI Applications Institute,        ARPA:  J.Dalton%uk.ac.ed@nss.cs.ucl.ac.uk
Edinburgh University.             UUCP:  ...!ukc!ed.ac.uk!J.Dalton