488 |
|
|
489 |
#ifdef ANSI_COMMON_LISP |
#ifdef ANSI_COMMON_LISP |
490 |
/* New ansi types */ |
/* New ansi types */ |
491 |
|
DEF_ORDINARY("METHOD-COMBINATION",sLmethod_combination,LISP,""); |
492 |
DEF_ORDINARY("ARITHMETIC-ERROR",sLarithmetic_error,LISP,""); |
DEF_ORDINARY("ARITHMETIC-ERROR",sLarithmetic_error,LISP,""); |
493 |
DEF_ORDINARY("BASE-CHAR",sLbase_char,LISP,""); |
DEF_ORDINARY("BASE-CHAR",sLbase_char,LISP,""); |
494 |
DEF_ORDINARY("BASE-STRING",sLbase_string,LISP,""); |
DEF_ORDINARY("BASE-STRING",sLbase_string,LISP,""); |
531 |
DEF_ORDINARY("STREAM-ERROR",sLstream_error,LISP,""); |
DEF_ORDINARY("STREAM-ERROR",sLstream_error,LISP,""); |
532 |
DEF_ORDINARY("STRING-STREAM",sLstring_stream,LISP,""); |
DEF_ORDINARY("STRING-STREAM",sLstring_stream,LISP,""); |
533 |
DEF_ORDINARY("STRUCTURE-CLASS",sLstructure_class,LISP,""); |
DEF_ORDINARY("STRUCTURE-CLASS",sLstructure_class,LISP,""); |
534 |
|
DEF_ORDINARY("STRUCTURE-OBJECT",sLstructure_object,LISP,""); |
535 |
DEF_ORDINARY("STYLE-WARNING",sLstyle_warning,LISP,""); |
DEF_ORDINARY("STYLE-WARNING",sLstyle_warning,LISP,""); |
536 |
DEF_ORDINARY("SYNONYM-STREAM",sLsynonym_stream,LISP,""); |
DEF_ORDINARY("SYNONYM-STREAM",sLsynonym_stream,LISP,""); |
537 |
DEF_ORDINARY("TWO-WAY-STREAM",sLtwo_way_stream,LISP,""); |
DEF_ORDINARY("TWO-WAY-STREAM",sLtwo_way_stream,LISP,""); |