/[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.20 by camm, Thu Oct 6 20:30:09 2005 UTC revision 1.21 by camm, Wed Oct 12 03:12:57 2005 UTC
# Line 194  check_type_stream(object *p) Line 194  check_type_stream(object *p)
194    
195  /* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/  /* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/
196  void  void
197    check_type_readtable_no_default(object *p) {
198      
199      if (type_of(*p) != t_readtable)
200        *p = wrong_type_argument(sLreadtable, *p);
201    
202    }
203    
204    void
205  check_type_readtable(object *p) {  check_type_readtable(object *p) {
206        
207    if (*p==Cnil)    if (*p==Cnil)
208      *p=standard_readtable;      *p=standard_readtable;
209    if (type_of(*p) != t_readtable)    check_type_readtable_no_default(p);
     *p = wrong_type_argument(sLreadtable, *p);  
210    
211  }  }
212    
# Line 467  DEF_ORDINARY("COMMON",sLcommon,LISP,""); Line 474  DEF_ORDINARY("COMMON",sLcommon,LISP,"");
474  DEF_ORDINARY("NULL",sLnull,LISP,"");  DEF_ORDINARY("NULL",sLnull,LISP,"");
475  DEF_ORDINARY("CONS",sLcons,LISP,"");  DEF_ORDINARY("CONS",sLcons,LISP,"");
476  DEF_ORDINARY("LIST",sLlist,LISP,"");  DEF_ORDINARY("LIST",sLlist,LISP,"");
477    DEF_ORDINARY("PROPER-LIST",siLproper_list,SI,"");
478  DEF_ORDINARY("SYMBOL",sLsymbol,LISP,"");  DEF_ORDINARY("SYMBOL",sLsymbol,LISP,"");
479  DEF_ORDINARY("ARRAY",sLarray,LISP,"");  DEF_ORDINARY("ARRAY",sLarray,LISP,"");
480  DEF_ORDINARY("VECTOR",sLvector,LISP,"");  DEF_ORDINARY("VECTOR",sLvector,LISP,"");

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

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