562 |
/* logical pathnames exist even in non ansi gcl */ |
/* logical pathnames exist even in non ansi gcl */ |
563 |
DEF_ORDINARY("LOGICAL-PATHNAME",sLlogical_pathname,LISP,""); |
DEF_ORDINARY("LOGICAL-PATHNAME",sLlogical_pathname,LISP,""); |
564 |
|
|
565 |
|
DEF_ORDINARY("BASE-CHAR",sLbase_char,LISP,""); |
566 |
|
|
567 |
#ifdef ANSI_COMMON_LISP |
#ifdef ANSI_COMMON_LISP |
568 |
/* New ansi types */ |
/* New ansi types */ |
569 |
DEF_ORDINARY("METHOD-COMBINATION",sLmethod_combination,LISP,""); |
DEF_ORDINARY("METHOD-COMBINATION",sLmethod_combination,LISP,""); |
570 |
DEF_ORDINARY("ARITHMETIC-ERROR",sLarithmetic_error,LISP,""); |
DEF_ORDINARY("ARITHMETIC-ERROR",sLarithmetic_error,LISP,""); |
|
DEF_ORDINARY("BASE-CHAR",sLbase_char,LISP,""); |
|
571 |
DEF_ORDINARY("BASE-STRING",sLbase_string,LISP,""); |
DEF_ORDINARY("BASE-STRING",sLbase_string,LISP,""); |
572 |
DEF_ORDINARY("BROADCAST-STREAM",sLbroadcast_stream,LISP,""); |
DEF_ORDINARY("BROADCAST-STREAM",sLbroadcast_stream,LISP,""); |
573 |
DEF_ORDINARY("BUILT-IN-CLASS",sLbuilt_in_class,LISP,""); |
DEF_ORDINARY("BUILT-IN-CLASS",sLbuilt_in_class,LISP,""); |