/[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.3 by camm, Mon Sep 30 05:12:03 2002 UTC revision 1.4 by camm, Thu Oct 3 05:32:38 2002 UTC
# Line 454  DEF_ORDINARY("INTEGER",sLinteger,LISP,"" Line 454  DEF_ORDINARY("INTEGER",sLinteger,LISP,""
454  DEF_ORDINARY("RATIO",sLratio,LISP,"");  DEF_ORDINARY("RATIO",sLratio,LISP,"");
455  DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,"");  DEF_ORDINARY("SHORT-FLOAT",sLshort_float,LISP,"");
456  DEF_ORDINARY("STANDARD-CHAR",sLstandard_char,LISP,"");  DEF_ORDINARY("STANDARD-CHAR",sLstandard_char,LISP,"");
457    DEF_ORDINARY("BOOLEAN",sLboolean,LISP,"");
458  DEF_ORDINARY("FIXNUM",sLfixnum,LISP,"");  DEF_ORDINARY("FIXNUM",sLfixnum,LISP,"");
459  DEF_ORDINARY("POSITIVE-FIXNUM",sLpositive_fixnum,LISP,"");  DEF_ORDINARY("POSITIVE-FIXNUM",sLpositive_fixnum,LISP,"");
460  DEF_ORDINARY("COMPLEX",sLcomplex,LISP,"");  DEF_ORDINARY("COMPLEX",sLcomplex,LISP,"");
# Line 484  DEF_ORDINARY("SIGNED-SHORT",sLsigned_sho Line 485  DEF_ORDINARY("SIGNED-SHORT",sLsigned_sho
485  DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,"");  DEF_ORDINARY("UNSIGNED-SHORT",sLunsigned_short,LISP,"");
486  DEF_ORDINARY("*",sLA,LISP,"");  DEF_ORDINARY("*",sLA,LISP,"");
487  DEF_ORDINARY("PLUSP",sLplusp,LISP,"");  DEF_ORDINARY("PLUSP",sLplusp,LISP,"");
488    
489    #ifdef ANSI_COMMON_LISP
490    /* New ansi types */
491    DEF_ORDINARY("ARITHMETIC-ERROR",sLarithmetic_error,LISP,"");
492    DEF_ORDINARY("BASE-CHAR",sLbase_char,LISP,"");
493    DEF_ORDINARY("BASE-STRING",sLbase_string,LISP,"");
494    DEF_ORDINARY("BROADCAST-STREAM",sLbroadcast_stream,LISP,"");
495    DEF_ORDINARY("BUILT-IN-CLASS",sLbuilt_in_class,LISP,"");
496    DEF_ORDINARY("CELL-ERROR",sLcell_error,LISP,"");
497    DEF_ORDINARY("CLASS",sLclass,LISP,"");
498    DEF_ORDINARY("CONCATENATED-STREAM",sLconcatenated_stream,LISP,"");
499    DEF_ORDINARY("CONDITION",sLcondition,LISP,"");
500    DEF_ORDINARY("CONTROL-ERROR",sLcontrol_error,LISP,"");
501    DEF_ORDINARY("DIVISION-BY-ZERO",sLdivision_by_zero,LISP,"");
502    DEF_ORDINARY("ECHO-STREAM",sLecho_stream,LISP,"");
503    DEF_ORDINARY("END-OF-FILE",sLend_of_file,LISP,"");
504    DEF_ORDINARY("ERROR",sLerror,LISP,"");
505    DEF_ORDINARY("EXTENDED-CHAR",sLextended_char,LISP,"");
506    DEF_ORDINARY("FILE-ERROR",sLfile_error,LISP,"");
507    DEF_ORDINARY("FILE-STREAM",sLfile_stream,LISP,"");
508    DEF_ORDINARY("FLOATING-POINT-INEXACT",sLfloating_point_inexact,LISP,"");
509    DEF_ORDINARY("FLOATING-POINT-INVALID-OPERATION",sLfloating_point_invalid_operation,LISP,"");
510    DEF_ORDINARY("FLOATING-POINT-OVERFLOW",sLfloating_point_overflow,LISP,"");
511    DEF_ORDINARY("FLOATING-POINT-UNDERFLOW",sLfloating_point_underflow,LISP,"");
512    DEF_ORDINARY("GENERIC-FUNCTION",sLgeneric_function,LISP,"");
513    DEF_ORDINARY("LOGICAL-PATHNAME",sLlogical_pathname,LISP,"");
514    DEF_ORDINARY("METHOD",sLmethod,LISP,"");
515    DEF_ORDINARY("PACKAGE-ERROR",sLpackage_error,LISP,"");
516    DEF_ORDINARY("PARSE-ERROR",sLparse_error,LISP,"");
517    DEF_ORDINARY("PRINT-NOT-READABLE",sLprint_not_readable,LISP,"");
518    DEF_ORDINARY("PROGRAM-ERROR",sLprogram_error,LISP,"");
519    DEF_ORDINARY("READER-ERROR",sLreader_error,LISP,"");
520    DEF_ORDINARY("SERIOUS-CONDITION",sLserious_condition,LISP,"");
521    DEF_ORDINARY("SIMPLE-BASE-STRING",sLsimple_base_string,LISP,"");
522    DEF_ORDINARY("SIMPLE-CONDITION",sLsimple_condition,LISP,"");
523    DEF_ORDINARY("SIMPLE-TYPE-ERROR",sLsimple_type_error,LISP,"");
524    DEF_ORDINARY("SIMPLE-WARNING",sLsimple_warning,LISP,"");
525    DEF_ORDINARY("STANDARD-CLASS",sLstandard_class,LISP,"");
526    DEF_ORDINARY("STANDARD-GENERIC-FUNCTION",sLstandard_generic_function,LISP,"");
527    DEF_ORDINARY("STANDARD-METHOD",sLstandard_method,LISP,"");
528    DEF_ORDINARY("STANDARD-OBJECT",sLstandard_object,LISP,"");
529    DEF_ORDINARY("STORAGE-CONDITION",sLstorage_condition,LISP,"");
530    DEF_ORDINARY("STREAM-ERROR",sLstream_error,LISP,"");
531    DEF_ORDINARY("STRING-STREAM",sLstring_stream,LISP,"");
532    DEF_ORDINARY("STRUCTURE-CLASS",sLstructure_class,LISP,"");
533    DEF_ORDINARY("STYLE-WARNING",sLstyle_warning,LISP,"");
534    DEF_ORDINARY("SYNONYM-STREAM",sLsynonym_stream,LISP,"");
535    DEF_ORDINARY("TWO-WAY-STREAM",sLtwo_way_stream,LISP,"");
536    DEF_ORDINARY("TYPE-ERROR",sLtype_error,LISP,"");
537    DEF_ORDINARY("UNBOUND-SLOT",sLunbound_slot,LISP,"");
538    DEF_ORDINARY("UNBOUND-VARIABLE",sLunbound_variable,LISP,"");
539    DEF_ORDINARY("UNDEFINED-FUNCTION",sLundefined_function,LISP,"");
540    DEF_ORDINARY("WARNING",sLwarning,LISP,"");
541    #endif
542    
543  DEFCONST("CHAR-SIZE",sSchar_size,SI,small_fixnum(CHAR_SIZE),"Size in bits of a character");  DEFCONST("CHAR-SIZE",sSchar_size,SI,small_fixnum(CHAR_SIZE),"Size in bits of a character");
544  DEFCONST("SHORT-SIZE",sSshort_size,SI,small_fixnum(CHAR_SIZE*sizeof(short)),"Size in bits of a short integer");  DEFCONST("SHORT-SIZE",sSshort_size,SI,small_fixnum(CHAR_SIZE*sizeof(short)),"Size in bits of a short integer");
545    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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