481 |
DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,""); |
DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,""); |
482 |
DEF_ORDINARY("STANDARD-CHAR",sLstandard_char,LISP,""); |
DEF_ORDINARY("STANDARD-CHAR",sLstandard_char,LISP,""); |
483 |
DEF_ORDINARY("BOOLEAN",sLboolean,LISP,""); |
DEF_ORDINARY("BOOLEAN",sLboolean,LISP,""); |
484 |
|
|
485 |
|
DEF_ORDINARY("SEQIND",sLseqind,LISP,""); |
486 |
|
DEF_ORDINARY("RNKIND",sLrnkind,LISP,""); |
487 |
|
|
488 |
|
DEF_ORDINARY("CHAR",sLchar,LISP,""); |
489 |
|
DEF_ORDINARY("NON-NEGATIVE-CHAR",sLnon_negative_char,LISP,""); |
490 |
|
DEF_ORDINARY("NEGATIVE-CHAR",sLnegative_char,LISP,""); |
491 |
|
DEF_ORDINARY("SIGNED-CHAR",sLsigned_char,LISP,""); |
492 |
|
DEF_ORDINARY("UNSIGNED-CHAR",sLunsigned_char,LISP,""); |
493 |
|
|
494 |
|
DEF_ORDINARY("SHORT",sLshort,LISP,""); |
495 |
|
DEF_ORDINARY("NON-NEGATIVE-SHORT",sLnon_negative_short,LISP,""); |
496 |
|
DEF_ORDINARY("NEGATIVE-SHORT",sLnegative_short,LISP,""); |
497 |
|
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,""); |
498 |
|
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,""); |
499 |
|
|
500 |
DEF_ORDINARY("FIXNUM",sLfixnum,LISP,""); |
DEF_ORDINARY("FIXNUM",sLfixnum,LISP,""); |
501 |
DEF_ORDINARY("POSITIVE-FIXNUM",sLpositive_fixnum,LISP,""); |
DEF_ORDINARY("NON-NEGATIVE-FIXNUM",sLnon_negative_fixnum,LISP,""); |
502 |
DEF_ORDINARY("POSITIVE-SHORT",sLpositive_short,LISP,""); |
DEF_ORDINARY("NEGATIVE-FIXNUM",sLnegative_fixnum,LISP,""); |
503 |
DEF_ORDINARY("POSITIVE-CHAR",sLpositive_char,LISP,""); |
DEF_ORDINARY("SIGNED-FIXNUM",sLsigned_fixnum,LISP,""); |
504 |
|
DEF_ORDINARY("UNSIGNED-FIXNUM",sLunsigned_fixnum,LISP,""); |
505 |
|
|
506 |
|
DEF_ORDINARY("LFIXNUM",sLlfixnum,LISP,""); |
507 |
|
DEF_ORDINARY("NON-NEGATIVE-LFIXNUM",sLnon_negative_lfixnum,LISP,""); |
508 |
|
DEF_ORDINARY("NEGATIVE-LFIXNUM",sLnegative_lfixnum,LISP,""); |
509 |
|
DEF_ORDINARY("SIGNED-LFIXNUM",sLsigned_lfixnum,LISP,""); |
510 |
|
DEF_ORDINARY("UNSIGNED-LFIXNUM",sLunsigned_lfixnum,LISP,""); |
511 |
|
|
512 |
DEF_ORDINARY("COMPLEX",sLcomplex,LISP,""); |
DEF_ORDINARY("COMPLEX",sLcomplex,LISP,""); |
513 |
DEF_ORDINARY("SINGLE-FLOAT",sLsingle_float,LISP,""); |
DEF_ORDINARY("SINGLE-FLOAT",sLsingle_float,LISP,""); |
514 |
DEF_ORDINARY("PACKAGE",sLpackage,LISP,""); |
DEF_ORDINARY("PACKAGE",sLpackage,LISP,""); |
531 |
DEF_ORDINARY("MOD",sLmod,LISP,""); |
DEF_ORDINARY("MOD",sLmod,LISP,""); |
532 |
DEF_ORDINARY("SIGNED-BYTE",sLsigned_byte,LISP,""); |
DEF_ORDINARY("SIGNED-BYTE",sLsigned_byte,LISP,""); |
533 |
DEF_ORDINARY("UNSIGNED-BYTE",sLunsigned_byte,LISP,""); |
DEF_ORDINARY("UNSIGNED-BYTE",sLunsigned_byte,LISP,""); |
|
DEF_ORDINARY("SIGNED-CHAR",sLsigned_char,LISP,""); |
|
|
DEF_ORDINARY("UNSIGNED-CHAR",sLunsigned_char,LISP,""); |
|
534 |
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,""); |
DEF_ORDINARY("SIGNED-SHORT",sLsigned_short,LISP,""); |
535 |
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,""); |
DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,""); |
536 |
DEF_ORDINARY("*",sLA,LISP,""); |
DEF_ORDINARY("*",sLA,LISP,""); |
596 |
DEF_ORDINARY("DYNAMIC-EXTENT",sLdynamic_extent,LISP,""); |
DEF_ORDINARY("DYNAMIC-EXTENT",sLdynamic_extent,LISP,""); |
597 |
#endif |
#endif |
598 |
|
|
599 |
DEFCONST("CHAR-SIZE",sSchar_size,SI,small_fixnum(CHAR_SIZE),"Size in bits of a character"); |
DEFCONST("CHAR-LENGTH",sSchar_length,SI,small_fixnum(CHAR_SIZE),"Size in bits of a character"); |
600 |
DEFCONST("SHORT-SIZE",sSshort_size,SI,small_fixnum(CHAR_SIZE*sizeof(short)),"Size in bits of a short integer"); |
DEFCONST("SHORT-LENGTH",sSshort_length,SI,small_fixnum(CHAR_SIZE*sizeof(short)),"Size in bits of a short integer"); |
601 |
|
DEFCONST("FIXNUM-LENGTH",sSfixnum_length,SI,small_fixnum(CHAR_SIZE*sizeof(fixnum)),"Size in bits of a short integer"); |
602 |
|
DEFCONST("LFIXNUM-LENGTH",sSlfixnum_length,SI,small_fixnum(CHAR_SIZE*sizeof(lfixnum)),"Size in bits of a short integer"); |
603 |
|
|
604 |
void |
void |
605 |
gcl_init_typespec(void) |
gcl_init_typespec(void) |