/[gcl]/gcl/o/predicate.c
ViewVC logotype

Diff of /gcl/o/predicate.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11 by camm, Wed Sep 7 02:57:10 2005 UTC revision 1.12 by camm, Sat Sep 10 01:28:30 2005 UTC
# Line 247  RETURN1(x0);} Line 247  RETURN1(x0);}
247  DEFUNO_NEW("SIMPLE-STRING-P",object,fLsimple_string_p,LISP  DEFUNO_NEW("SIMPLE-STRING-P",object,fLsimple_string_p,LISP
248     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_string_p,(object x0),"") {     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_string_p,(object x0),"") {
249    
250    RETURN1(fLstringp(x0));    RETURN1(FFN(fLstringp)(x0));
251    
252  }  }
253    
# Line 268  DEFUNO_NEW("SIMPLE-STRING-P",object,fLsi Line 268  DEFUNO_NEW("SIMPLE-STRING-P",object,fLsi
268  DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP  DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,fLsimple_bit_vector_p ,LISP
269     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_bit_vector_p ,(object x0),"") {     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_bit_vector_p ,(object x0),"") {
270        
271    RETURN1(fLbit_vector_p(x0));    RETURN1(FFN(fLbit_vector_p)(x0));
272    
273  }  }
274    
# Line 291  DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object, Line 291  DEFUNO_NEW("SIMPLE-BIT-VECTOR-P",object,
291  DEFUNO_NEW("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP  DEFUNO_NEW("SIMPLE-VECTOR-P",object,fLsimple_vector_p ,LISP
292     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_vector_p ,(object x0),"") {     ,1,1,NONE,OO,OO,OO,OO,void,Lsimple_vector_p ,(object x0),"") {
293    
294    RETURN1(fLvectorp(x0));    RETURN1(FFN(fLvectorp)(x0));
295    
296  }  }
297    

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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