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/SYMBOL.lsp | |
| parent | b043245231dca601a9a11ae6ddf4e89cc97c3d6c (diff) | |
| download | open-axiom-2504b96ac76f31c60ab32979509e6f3b4b7a8b10.tar.gz | |
* interp/buildom.boot: Clean up QEQCAR uses.
Diffstat (limited to 'src/algebra/strap/SYMBOL.lsp')
| -rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 1b94a4b0..56acba33 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -491,8 +491,8 @@ (|getShellEntry| $ 124)) |SYMBOL;new;2$;28|) (EXIT (COND - ((QEQCAR |u| 1) 0) - ('T (+ (QCDR |u|) 1))))) + ((EQL (CAR |u|) 1) 0) + ('T (+ (CDR |u|) 1))))) |SYMBOL;new;2$;28|) (SPADCALL (|getShellEntry| $ 13) |x| |n| (|getShellEntry| $ 127)) |