126 |
*p = wrong_type_argument(sLcharacter, *p); |
*p = wrong_type_argument(sLcharacter, *p); |
127 |
} |
} |
128 |
|
|
|
/* static void */ |
|
|
/* check_type_string_char(object *p) */ |
|
|
/* { */ |
|
|
/* while (type_of(*p) != t_character || */ |
|
|
/* char_font((*p)) != 0 || */ |
|
|
/* char_bits((*p)) != 0) */ |
|
|
/* *p = wrong_type_argument(sLcharacter, *p); */ |
|
|
/* } */ |
|
|
|
|
129 |
void |
void |
130 |
check_type_symbol(object *p) |
check_type_symbol(object *p) |
131 |
{ |
{ |
486 |
DEF_ORDINARY("NUMBER",sLnumber,LISP,""); |
DEF_ORDINARY("NUMBER",sLnumber,LISP,""); |
487 |
DEF_ORDINARY("RATIONAL",sLrational,LISP,""); |
DEF_ORDINARY("RATIONAL",sLrational,LISP,""); |
488 |
DEF_ORDINARY("FLOAT",sLfloat,LISP,""); |
DEF_ORDINARY("FLOAT",sLfloat,LISP,""); |
|
DEF_ORDINARY("STRING-CHAR",sLstring_char,LISP,""); |
|
489 |
DEF_ORDINARY("INTEGER",sLinteger,LISP,""); |
DEF_ORDINARY("INTEGER",sLinteger,LISP,""); |
490 |
DEF_ORDINARY("RATIO",sLratio,LISP,""); |
DEF_ORDINARY("RATIO",sLratio,LISP,""); |
491 |
DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,""); |
DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,""); |
507 |
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,""); |
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,""); |
508 |
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,""); |
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,""); |
509 |
|
|
510 |
|
DEF_ORDINARY("NON-NEGATIVE-INT",sLnon_negative_int,LISP,""); |
511 |
|
DEF_ORDINARY("NEGATIVE-INT",sLnegative_int,LISP,""); |
512 |
|
DEF_ORDINARY("SIGNED-INT",sLsigned_int,LISP,""); |
513 |
|
DEF_ORDINARY("UNSIGNED-INT",sLunsigned_int,LISP,""); |
514 |
|
|
515 |
DEF_ORDINARY("FIXNUM",sLfixnum,LISP,""); |
DEF_ORDINARY("FIXNUM",sLfixnum,LISP,""); |
516 |
DEF_ORDINARY("NON-NEGATIVE-FIXNUM",sLnon_negative_fixnum,LISP,""); |
DEF_ORDINARY("NON-NEGATIVE-FIXNUM",sLnon_negative_fixnum,LISP,""); |
517 |
DEF_ORDINARY("NEGATIVE-FIXNUM",sLnegative_fixnum,LISP,""); |
DEF_ORDINARY("NEGATIVE-FIXNUM",sLnegative_fixnum,LISP,""); |
614 |
DEF_ORDINARY("DYNAMIC-EXTENT",sLdynamic_extent,LISP,""); |
DEF_ORDINARY("DYNAMIC-EXTENT",sLdynamic_extent,LISP,""); |
615 |
#endif |
#endif |
616 |
|
|
617 |
DEFCONST("CHAR-LENGTH",sSchar_length,SI,small_fixnum(CHAR_SIZE),"Size in bits of a character"); |
DEFCONST("CHAR-LENGTH", sSchar_length, SI,small_fixnum(CHAR_SIZE), |
618 |
DEFCONST("SHORT-LENGTH",sSshort_length,SI,small_fixnum(CHAR_SIZE*sizeof(short)),"Size in bits of a short integer"); |
"Size in bits of a character"); |
619 |
DEFCONST("FIXNUM-LENGTH",sSfixnum_length,SI,small_fixnum(CHAR_SIZE*sizeof(fixnum)),"Size in bits of a short integer"); |
DEFCONST("SHORT-LENGTH", sSshort_length, SI,small_fixnum(CHAR_SIZE*sizeof(short)), |
620 |
DEFCONST("LFIXNUM-LENGTH",sSlfixnum_length,SI,small_fixnum(CHAR_SIZE*sizeof(lfixnum)),"Size in bits of a short integer"); |
"Size in bits of a short integer"); |
621 |
|
DEFCONST("INT-LENGTH", sSint_length, SI,small_fixnum(CHAR_SIZE*sizeof(int)), |
622 |
|
"Size in bits of an int"); |
623 |
|
DEFCONST("FIXNUM-LENGTH", sSfixnum_length, SI,small_fixnum(CHAR_SIZE*sizeof(fixnum)), |
624 |
|
"Size in bits of a fixnum"); |
625 |
|
DEFCONST("LFIXNUM-LENGTH",sSlfixnum_length,SI,small_fixnum(CHAR_SIZE*sizeof(lfixnum)), |
626 |
|
"Size in bits of a long fixnum"); |
627 |
|
|
628 |
void |
void |
629 |
gcl_init_typespec(void) |
gcl_init_typespec(void) |