Parent Directory | Revision Log | Patch
revision 1.16 by camm, Wed Oct 5 15:26:17 2005 UTC | revision 1.17 by camm, Thu Oct 6 20:30:08 2005 UTC | |
---|---|---|
# | Line 72 DEFUNO_NEW("ATOM",object,fLatom ,LISP | Line 72 DEFUNO_NEW("ATOM",object,fLatom ,LISP |
72 | { | { |
73 | /* 1 args */ | /* 1 args */ |
74 | ||
75 | if (type_of(x0) != t_cons) | if (!consp(x0)) |
76 | x0 = Ct; | x0 = Ct; |
77 | else | else |
78 | x0 = Cnil; | x0 = Cnil; |
# | Line 85 DEFUNO_NEW("CONSP",object,fLconsp,LISP | Line 85 DEFUNO_NEW("CONSP",object,fLconsp,LISP |
85 | { | { |
86 | /* 1 args */ | /* 1 args */ |
87 | ||
88 | if (type_of(x0) == t_cons) | if (consp(x0)) |
89 | x0 = Ct; | x0 = Ct; |
90 | else | else |
91 | x0 = Cnil; | x0 = Cnil; |
# | Line 98 DEFUNO_NEW("LISTP",object,fLlistp,LISP | Line 98 DEFUNO_NEW("LISTP",object,fLlistp,LISP |
98 | { | { |
99 | /* 1 args */ | /* 1 args */ |
100 | ||
101 | if (x0 == Cnil || type_of(x0) == t_cons) | if (listp(x0)) |
102 | x0 = Ct; | x0 = Ct; |
103 | else | else |
104 | x0 = Cnil; | x0 = Cnil; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |