diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-04 02:43:19 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-04 02:43:19 +0000 |
| commit | 2504b96ac76f31c60ab32979509e6f3b4b7a8b10 (patch) | |
| tree | 303bcf51784f4c93fb5154d2f31632566920c347 /src/algebra/strap/QFCAT-.lsp | |
| parent | b043245231dca601a9a11ae6ddf4e89cc97c3d6c (diff) | |
| download | open-axiom-2504b96ac76f31c60ab32979509e6f3b4b7a8b10.tar.gz | |
* interp/buildom.boot: Clean up QEQCAR uses.
Diffstat (limited to 'src/algebra/strap/QFCAT-.lsp')
| -rw-r--r-- | src/algebra/strap/QFCAT-.lsp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/algebra/strap/QFCAT-.lsp b/src/algebra/strap/QFCAT-.lsp index aa8a25a6..ffa5c6e5 100644 --- a/src/algebra/strap/QFCAT-.lsp +++ b/src/algebra/strap/QFCAT-.lsp @@ -101,11 +101,11 @@ (|getShellEntry| $ 18)) |QFCAT-;nextItem;AU;4|) (EXIT (COND - ((QEQCAR |m| 1) + ((EQL (CAR |m|) 1) (|error| "We seem to have a Fraction of a finite object")) ('T (CONS 0 - (SPADCALL (QCDR |m|) (|spadConstant| $ 14) + (SPADCALL (CDR |m|) (|spadConstant| $ 14) (|getShellEntry| $ 15)))))))))) (DEFUN |QFCAT-;map;M2A;5| (|fn| |x| $) @@ -221,8 +221,8 @@ (SEQ (LETT |r| (SPADCALL |x| (|getShellEntry| $ 63)) |QFCAT-;retractIfCan;AU;18|) (EXIT (COND - ((QEQCAR |r| 1) (CONS 1 "failed")) - ('T (SPADCALL (QCDR |r|) (|getShellEntry| $ 65))))))))) + ((EQL (CAR |r|) 1) (CONS 1 "failed")) + ('T (SPADCALL (CDR |r|) (|getShellEntry| $ 65))))))))) (DEFUN |QFCAT-;convert;AP;19| (|x| $) (SPADCALL @@ -264,8 +264,8 @@ (SEQ (LETT |u| (SPADCALL |x| (|getShellEntry| $ 63)) |QFCAT-;retractIfCan;AU;25|) (EXIT (COND - ((QEQCAR |u| 1) (CONS 1 "failed")) - ('T (SPADCALL (QCDR |u|) (|getShellEntry| $ 95))))))))) + ((EQL (CAR |u|) 1) (CONS 1 "failed")) + ('T (SPADCALL (CDR |u|) (|getShellEntry| $ 95))))))))) (DEFUN |QFCAT-;random;A;26| ($) (PROG (|d|) |