/[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.17 by camm, Wed Sep 7 02:59:44 2005 UTC revision 1.18 by camm, Wed Sep 7 16:22:26 2005 UTC
# Line 562  DEF_ORDINARY("FILE-STREAM",sLfile_stream Line 562  DEF_ORDINARY("FILE-STREAM",sLfile_stream
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,"");

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

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