389 |
;} |
;} |
390 |
|
|
391 |
bool |
bool |
392 |
eql(x, y) |
eql(object x, object y) |
|
object x, y; |
|
393 |
{ |
{ |
394 |
enum type t; |
enum type t; |
395 |
|
|
406 |
return(FALSE); |
return(FALSE); |
407 |
|
|
408 |
case t_bignum: |
case t_bignum: |
409 |
if (big_compare((struct bignum *)x, |
if (big_compare(x,y) == 0) |
|
(struct bignum *)y) == 0) |
|
410 |
return(TRUE); |
return(TRUE); |
411 |
else |
else |
412 |
return(FALSE); |
return(FALSE); |
444 |
return(TRUE); |
return(TRUE); |
445 |
else |
else |
446 |
return(FALSE); |
return(FALSE); |
447 |
|
default: |
448 |
|
break; |
449 |
} |
} |
450 |
return(FALSE); |
return(FALSE); |
451 |
} |
} |
465 |
|
|
466 |
bool |
bool |
467 |
|
|
468 |
equal(x, y) |
equal(register object x, register object y) |
469 |
register object x; |
|
470 |
#ifdef UNIX /* in non unix case cs_check want's an address */ |
#ifdef UNIX /* in non unix case cs_check want's an address */ |
471 |
register |
|
472 |
#endif |
#endif |
473 |
object y; |
|
474 |
{ |
{ |
475 |
register enum type t; |
register enum type t; |
476 |
|
|
504 |
return(x->LF.LFVAL==y->LF.LFVAL); |
return(x->LF.LFVAL==y->LF.LFVAL); |
505 |
|
|
506 |
case t_string: |
case t_string: |
507 |
return(string_eq(x, y)); |
return(string_eq(x, y)); |
508 |
|
|
509 |
case t_bitvector: |
case t_bitvector: |
510 |
{ |
{ |
534 |
else |
else |
535 |
return(FALSE); |
return(FALSE); |
536 |
|
|
537 |
|
default: |
538 |
|
break; |
539 |
} |
} |
540 |
return(eql(x,y)); |
return(eql(x,y)); |
541 |
} |
} |
550 |
x0 = Ct; |
x0 = Ct; |
551 |
else |
else |
552 |
x0 = Cnil; |
x0 = Cnil; |
553 |
vs_pop; |
vs_popp; |
554 |
RETURN1(x0); |
RETURN1(x0); |
555 |
} |
} |
556 |
|
|
557 |
bool |
bool |
558 |
equalp(x, y) |
equalp(object x, object y) |
|
object x, y; |
|
559 |
{ |
{ |
560 |
enum type tx, ty; |
enum type tx, ty; |
561 |
int j; |
int j; |
606 |
goto ARRAY;} |
goto ARRAY;} |
607 |
else |
else |
608 |
return(FALSE); |
return(FALSE); |
609 |
|
default: |
610 |
|
break; |
611 |
} |
} |
612 |
if (tx != ty) |
if (tx != ty) |
613 |
return(FALSE); |
return(FALSE); |
654 |
|
|
655 |
case t_pathname: |
case t_pathname: |
656 |
return(equal(x, y)); |
return(equal(x, y)); |
657 |
|
default: |
658 |
|
break; |
659 |
} |
} |
660 |
return(FALSE); |
return(FALSE); |
661 |
|
|
670 |
vs_top[-2] = aref(x, i); |
vs_top[-2] = aref(x, i); |
671 |
vs_top[-1] = aref(y, i); |
vs_top[-1] = aref(y, i); |
672 |
if (!equalp(vs_top[-2], vs_top[-1])) { |
if (!equalp(vs_top[-2], vs_top[-1])) { |
673 |
vs_pop; |
vs_popp; |
674 |
vs_pop; |
vs_popp; |
675 |
return(FALSE); |
return(FALSE); |
676 |
} |
} |
677 |
} |
} |
678 |
vs_pop; |
vs_popp; |
679 |
vs_pop; |
vs_popp; |
680 |
return(TRUE); |
return(TRUE); |
681 |
} |
} |
682 |
} |
} |
694 |
RETURN1(x0); |
RETURN1(x0); |
695 |
} |
} |
696 |
|
|
697 |
Fand(args) |
void |
698 |
object args; |
Fand(object args) |
699 |
{ |
{ |
700 |
object endp_temp; |
object endp_temp; |
701 |
|
|
719 |
eval(MMcar(args)); |
eval(MMcar(args)); |
720 |
} |
} |
721 |
|
|
722 |
For(args) |
void |
723 |
object args; |
For(object args) |
724 |
{ |
{ |
725 |
object endp_temp; |
object endp_temp; |
726 |
|
|
751 |
Refer to the compiler about this magic. |
Refer to the compiler about this magic. |
752 |
*/ |
*/ |
753 |
bool |
bool |
754 |
contains_sharp_comma(x) |
contains_sharp_comma(object x) |
|
object x; |
|
755 |
{ |
{ |
756 |
enum type tx; |
enum type tx; |
757 |
|
|
833 |
RETURN1(x0); |
RETURN1(x0); |
834 |
} |
} |
835 |
|
|
836 |
init_predicate_function() |
void |
837 |
|
init_predicate_function(void) |
838 |
{ |
{ |
839 |
|
|
840 |
make_special_form("AND",Fand); |
make_special_form("AND",Fand); |