diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-18 03:51:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-18 03:51:28 +0000 |
| commit | f6e5de243353518085fbd39be9daef1f121a96e3 (patch) | |
| tree | 0540e540bb30845fccfc795c3f41807d4cd52088 /src/algebra/strap/LSAGG-.lsp | |
| parent | 3691e956e1428f08363a0ed37e3f4f0f79b89ec0 (diff) | |
| download | open-axiom-f6e5de243353518085fbd39be9daef1f121a96e3.tar.gz | |
Rename %veclit to %vector and %listlit to %list
Diffstat (limited to 'src/algebra/strap/LSAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 97fd89c1..0fdf21f2 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -494,7 +494,7 @@ (EXIT (SPADCALL |z| (|getShellEntry| $ 55)))))) (DEFUN |LSAGG-;reverse!;2A;20| (|x| $) - (PROG (|z| |y|) + (PROG (|y| |z|) (RETURN (COND ((OR (SPADCALL |x| (|getShellEntry| $ 16)) @@ -513,9 +513,7 @@ (SPADCALL |y| (|getShellEntry| $ 17)) |LSAGG-;reverse!;2A;20|) (SPADCALL |y| |x| (|getShellEntry| $ 27)) - (SETQ |x| |y|) - (EXIT (LETT |y| |z| - |LSAGG-;reverse!;2A;20|)))))) + (SETQ |x| |y|) (EXIT (SETQ |y| |z|)))))) (EXIT |x|))))))) (DEFUN |LSAGG-;copy;2A;21| (|x| $) |