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,""); |
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 |
|
|