/[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.18 by camm, Wed Sep 7 16:22:26 2005 UTC revision 1.19 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 126  check_type_character(object *p) Line 126  check_type_character(object *p)
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  {  {
# Line 495  DEF_ORDINARY("CHARACTER",sLcharacter,LIS Line 486  DEF_ORDINARY("CHARACTER",sLcharacter,LIS
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,"");
# Line 517  DEF_ORDINARY("NEGATIVE-SHORT",sLnegative Line 507  DEF_ORDINARY("NEGATIVE-SHORT",sLnegative
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,"");
# Line 619  DEF_ORDINARY("WARNING",sLwarning,LISP,"" Line 614  DEF_ORDINARY("WARNING",sLwarning,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)

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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