Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |