/[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.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;

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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