Searched refs:Atype_T (Results 1 – 6 of 6) sorted by relevance
134 return Atype_T; in eltype_code()167 return Atype_T; in eltype_code()857 { return Atype_T; } in array_atype()874 case Atype_T: { return S(t); } /* T */ in array_element_type()3858 case Atype_NIL: case Atype_T:3878 case Atype_T: /* array is a general-vector */4361 case Atype_T: { /* create simple-vector */ in make_storagevector()4593 STACK_5 = S(t); eltype = Atype_T;
208 var uintB atype = (eq(name2,S(star)) ? Atype_T : eltype_code(name2)); in valid_type1()209 if (atype==Atype_T) { /* (VECTOR T) */ in valid_type1()
8484 #define Atype_T 6 /* storage vector is of type svector_type */ macro8490 %% export_def(Atype_T);
8191 case Atype_T: readable = false; /* automatically rereadable */ in pr_array()
22636 * lispbibl.d (Atype_T): export to clisp.h39642 now implies Atype_T again.
134 if (array_atype(*arg_) != Atype_T) return -1; /* cannot contain vectors */ in check_iovec_arg()