/[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.17 by camm, Thu Oct 6 20:30:08 2005 UTC revision 1.18 by camm, Wed Oct 12 03:12:57 2005 UTC
# 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(FFN(fLvectorp)(x0));    RETURN1(FFN(fLvectorp)(x0)==Ct && (enum aelttype)x0->v.v_elttype == aet_object ? Ct : Cnil);
295    
296  }  }
297    

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