/[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.14 by camm, Wed Jun 29 21:20:09 2005 UTC revision 1.15 by camm, Fri Jul 8 06:12:59 2005 UTC
# Line 201  check_type_stream(object *p) Line 201  check_type_stream(object *p)
201                  *p = wrong_type_argument(sLstream, *p);                  *p = wrong_type_argument(sLstream, *p);
202  }  }
203    
204    /* Thankfully we can do this bit of non-lispy c stuff since we pass by reference. FIXME*/
205  void  void
206  check_type_readtable(object *p)  check_type_readtable(object *p) {
207  {    
208          while (type_of(*p) != t_readtable)    if (*p==Cnil)
209                  *p = wrong_type_argument(sLreadtable, *p);      *p=standard_readtable;
210      if (type_of(*p) != t_readtable)
211        *p = wrong_type_argument(sLreadtable, *p);
212    
213  }  }
214    
215  #ifdef UNIX  #ifdef UNIX

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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