Go to the documentation of this file.
5 static char *
rcsid=
"@(#)$Id$";
17 return(islist(argv[0])?
NIL:
T);}
24 return(argv[0]==argv[1]?
T:
NIL);}
38 return(issymbol(*argv)?
T:
NIL);}
45 return(isstring(*argv)?
T:
NIL);}
53 if (islist(
a))
return(
T);
54 else if (
a==
NIL)
return(
T);
62 return(islist(argv[0])?
T:
NIL);}
69 if (argv[0]==
NIL)
return(
T);
70 else if (islist(argv[0]))
return(
NIL);
78 if (isnum(argv[0]) || pisextnum(argv[0]))
return(
T);
86 return(isint(argv[0])?
T:
NIL);}
93 return(isflt(argv[0])?
T:
NIL);}
103 if (SPEVALOF(
a)==UNBOUND)
return(
NIL);
113 if (
a->c.sym.spefunc==UNBOUND)
return(
NIL);
else return(
T);}
121 if (isstream(
s) || isiostream(
s))
return(
T);
126 {
register int i,
n,xe;
131 if (isnum(x) || isnum(y))
return(
NIL);
132 if (x->cix != y->cix)
return(
NIL);
133 if (pissymbol(x))
return(
NIL);
136 if (bx->
h.
mark || by->
h.
mark)
return(UNBOUND);
139 if (xe==ELM_FIXED || xe==ELM_POINTER) {
141 if (xe==ELM_POINTER)
n=vecsize(x)+1;
143 for (i=0; i<
n; i++) {
144 result=
superequal(x->c.obj.iv[i],y->c.obj.iv[i]);
153 if (
n!=vecsize(y))
return(
NIL);
154 cx=x->c.ivec.iv; cy=y->c.ivec.iv;
156 case ELM_BIT:
n=(
n+WORD_SIZE-1)/WORD_SIZE;
break;
159 for (i=0; i<
n; i++)
if (cx[i]!=cy[i])
return(
NIL);
164 {
register int i,
n,xe;
167 if (isnum(x) || isnum(y))
return(
NIL);
168 if (x->cix != y->cix)
return(
NIL);
169 if (pissymbol(x))
return(
NIL);
171 if (xe!=elmtypeof(y))
return(
NIL);
173 if (xe==ELM_FIXED || xe==ELM_POINTER) {
174 if (xe==ELM_POINTER)
n=vecsize(x)+1;
177 if (
equal(x->c.obj.iv[i],y->c.obj.iv[i])!=
T)
return(
NIL);
181 if (
n!=vecsize(y))
return(
NIL);
182 cx=x->c.ivec.iv; cy=y->c.ivec.iv;
184 case ELM_BIT:
n=(
n+WORD_SIZE-1)/WORD_SIZE;
break;
187 for (i=0; i<
n; i++)
if (cx[i]!=cy[i])
return(
NIL);
195 return(
equal(argv[0],argv[1]));}
212 else return(result);}
pointer superequal(pointer x, pointer y)
pointer NILP(context *ctx, int n, pointer *argv)
defun("ADR_TO_STRING", mod, ADR_TO_STRING)
pointer STREAMP(context *ctx, int n, argv)
pointer EQ(context *ctx, int n, pointer *argv)
pointer ENDP(context *ctx, int n, argv)
pointer SYMBOLP(context *ctx, int n, pointer *argv)
pointer equal(pointer x, pointer y)
pointer LISTP(context *ctx, int n, pointer *argv)
pointer BOUNDP(context *ctx, int n, argv)
pointer INTEGERP(context *ctx, int n, pointer *argv)
void predicates(context *ctx, pointer mod)
pointer SUPEREQUAL(context *ctx, int n, argv)
pointer ATOM(context *ctx, int n, pointer *argv)
pointer error(enum errorcode ec,...) pointer error(va_alist) va_dcl
pointer call2(context *, pointer, pointer, pointer)
pointer EQUAL(context *ctx, int n, argv)
pointer STRINGP(context *ctx, int n, pointer *argv)
pointer FBOUNDP(context *ctx, int n, pointer *argv)
pointer FLOATP(context *ctx, int n, pointer *argv)
pointer NUMBERP(context *ctx, int n, pointer *argv)
pointer CONSP(context *ctx, int n, pointer *argv)
pointer call1(context *, pointer, pointer)
euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:43