Bug involving VECTOR-PUSH-EXTEND

[Jeff Dalton <jeff%aiva.edinburgh.ac.uk@nss.cs.ucl.ac.uk>]

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.
	>>:q

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

	>v2
	#(ENTRY0)

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