
DEFCONST("ARRAY-RANK-LIMIT", sLarray_rank_limit, LISP,
	 make_fixnum(63 ),"")
DEFCONST("ARRAY-DIMENSION-LIMIT", sLarray_dimension_limit,
	 LISP, make_fixnum(MOST_POSITIVE_FIX),"")
DEFCONST("ARRAY-TOTAL-SIZE-LIMIT", sLarray_total_size_limit,
	 LISP, sLarray_dimension_limit,"")
DEF_ORDINARY("BIT",sLbit,LISP,"")
DEFUNO("AREF", object, fLaref, LISP, 1, 63 ,
       0 , OO, II, II, II,Laref,"")
DEFUN("SVREF", object, fLsvref, LISP, 2, 2,
      (1 << F_caller_sets_one_val) , OO, IO, OO,OO,
      "For array X and index I it returns (aref x i) ")
DEFUN("AREF1", object, fSaref1, SI, 2, 2,
      0 , OO, IO, OO,OO,
      "For array X and index I it returns (aref x i) as if x were 1 dimensional, even though its rank may be bigger than 1")
DEFUN("ASET1", object, fSaset1, SI, 3, 3, 0 , OO, IO, OO,OO,"")
DEFUNO("ASET", object, fSaset, SI, 1, 63 , 0 , OO,
       OO, OO, OO,siLaset,"")
DEFUNO("SVSET", object, fSsvset, SI, 3, 3, 0 , OO, IO, OO,
       OO,siLsvset,"")
DEFUN("MAKE-VECTOR1",object,fSmake_vector1,SI,3,8,0 ,OI,
      IO,OO,OO,"")
DEFUN("GET-AELTTYPE",enum aelttype,fSget_aelttype,SI,1,1,0 ,IO,OO,OO,OO,"")
DEFUNO("MAKE-VECTOR",object,fSmake_vector,SI,7,8,0 ,
       OO,OO,OO,OO,siLmake_vector,"")
DEFUN("MAKE-ARRAY1",object,fSmake_array1,SI,6,6,
      0 ,OI,OO,OI,OO,"")
DEFUN("COPY-ARRAY-PORTION",object,fScopy_array_portion,SI,4,
      5,0 ,OO,OI,II,OO,
   "Copy elements from X to Y starting at x[i1] to x[i2] and doing N1 elements if N1 is supplied otherwise, doing the length of X - I1 elements.  If the types of the arrays are not the same, this has implementation dependent results.")
DEFUNO("FILL-POINTER-SET",int,fSfill_pointer_set,SI,2,2,
       0 ,IO,IO,OO,OO,siLfill_pointer_set,"")
DEFUNO("FILL-POINTER",int,fLfill_pointer,LISP,1,1,0 ,IO,
       OO,OO,OO,Lfill_pointer,"")
DEFUN("ARRAY-HAS-FILL-POINTER-P",object,
      fLarray_has_fill_pointer_p,LISP,1,1,0 ,OO,OO,OO,OO,"")
DEFUNO("ARRAY-ELEMENT-TYPE",object,fLarray_element_type,
       LISP,1,1,0 ,OO,OO,OO,OO,Larray_element_type,"")
DEFUNO("ADJUSTABLE-ARRAY-P",object,fLadjustable_array_p,
       LISP,1,1,0 ,OO,OO,OO,OO,Ladjustable_array_p,"")
DEFUNO("DISPLACED-ARRAY-P",object,fSdisplaced_array_p,SI,1,
       1,0 ,OO,OO,OO,OO,siLdisplaced_array_p,"")
DEFUNO("ARRAY-RANK",int,fLarray_rank,LISP,1,1,0 ,IO,OO,OO,
       OO,Larray_rank,"")
DEFUNO("ARRAY-DIMENSION",int,fLarray_dimension,LISP,2,2,
       0 ,IO,IO,OO,OO,Larray_dimension,"")
DEFUNO("REPLACE-ARRAY",object,fSreplace_array,SI,2,2,0 ,
       OO,OO,OO,OO,siLreplace_array,"")
DEFUNO("ARRAY-TOTAL-SIZE",int,fLarray_total_size,LISP,1,1,
       0 ,IO,OO,OO,OO,Larray_total_size,"")
DEFUNO("ASET-BY-CURSOR",object,fSaset_by_cursor,SI,3,3,
       0 ,OO,OO,OO,OO,siLaset_by_cursor,"")