diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-04 22:22:24 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-04 22:22:24 +0000 |
| commit | c4abad6da39c2c2d064b8d4e5c7210cf51ce7afc (patch) | |
| tree | 2ef9f2ccb8d678853ad457edf911490acff21ab6 /src/algebra/strap/SYMBOL.lsp | |
| parent | 61fb7fee9ac84e254ca4e07428242fdc37fd4c06 (diff) | |
| download | open-axiom-c4abad6da39c2c2d064b8d4e5c7210cf51ce7afc.tar.gz | |
Update cached algebra Lisp files
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 56acba33..e9cc7814 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -445,12 +445,12 @@ (SEQ (LETT |qr| (DIVIDE2 |n| (QCSIZE |s|)) |SYMBOL;anyRadix|) - (LETT |n| (QCAR |qr|) + (LETT |n| (CAR |qr|) |SYMBOL;anyRadix|) (LETT |ns| (SPADCALL (SPADCALL |s| - (+ (QCDR |qr|) + (+ (CDR |qr|) (SPADCALL |s| (|getShellEntry| $ 117))) (|getShellEntry| $ 106)) |