bugs in hash.l and array.l

[Ken Anderson <kanderso@bbn-vax>]

To get Flavors working in Opus 38.91 you will need to fix a bug in
lisplib/hash.l.  Change all occurances of "getlength" to "vsize".

Although unrelated to Flavors, there are several problems with
the functions, fillarray fillarrayarray and listarray in
lisplib/array.l.  Here is an ed script produced by diff:

285,286c
	       (cond ((or (arrayp arr)		; KRA
			  (and (symbolp arr) (arrayp (setq arr (getd arr))))))
,
282,283c
    (lexpr (n)
	   (prog (arr size typ ret newv)
,
280a
; KRA 83-11-2:  Arrays need not be symbols.
,
279c
		    (replace (arrayref arrto i) (arrayref arrfrom i)))
		(return arrto))))	; KRA
,
270c
		    (cond ((cdr ls) (setq ls (cdr ls)))))
		(return arr))))		; KRA
,
244a
; KRA 83-11-2:  Fillarray  and fillarrayarray should return the array!
,