object
read_fasl_vector(in)
object in;
{
	int dimcount, dim;
	object x;
	int a;
	object *vsp;		

	while (readc_stream(in) != '#')
		;
	while (readc_stream(in) != '(')
		;
	vsp = vs_top;
	dimcount = 0;
	for (;;) {
		delimiting_char = code_char(')');
		x = read_object_non_recursive(in);
		if (x == OBJNULL)
			break;
		vs_check_push(x);
		dimcount++;
	}	
	x = alloc_simple_vector(dimcount, aet_object);
	vs_push(x);
	x->v.v_self
	= (object *)alloc_relblock(dimcount * sizeof(object));
	vs_pop;
	for (dim = 0; dim < dimcount; dim++)
		x->v.v_self[dim] = vsp[dim];
	vs_top = vsp;
	return(x);
}
