/[gcl]/gcl/o/typespec.c
ViewVC logotype

Diff of /gcl/o/typespec.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12 by camm, Mon Dec 27 22:07:17 2004 UTC revision 1.13 by camm, Fri Jan 7 17:58:34 2005 UTC
# Line 481  DEF_ORDINARY("RATIO",sLratio,LISP,""); Line 481  DEF_ORDINARY("RATIO",sLratio,LISP,"");
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,"");
# Line 507  DEF_ORDINARY("VALUES",sLvalues,LISP,""); Line 531  DEF_ORDINARY("VALUES",sLvalues,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,"");
# Line 574  DEF_ORDINARY("WARNING",sLwarning,LISP,"" Line 596  DEF_ORDINARY("WARNING",sLwarning,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)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26