diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-03 19:16:25 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-03 19:16:25 +0000 |
commit | a6dfd60ca4931a8c11f0afbd4533d4c6cc960e1e (patch) | |
tree | a892bbc7fb9390dc1f73cc5d341b0c3d0e7fc056 /src/algebra/strap/LSAGG-.lsp | |
parent | 8ea3a4b4aae5c6c1287bc4e48a2fcdd33a51a7f5 (diff) | |
download | open-axiom-a6dfd60ca4931a8c11f0afbd4533d4c6cc960e1e.tar.gz |
* algebra/stream.spad.pamphlet (Stream): Remove bogus assignment
to Rep. Rework local function definitions.
Diffstat (limited to 'src/algebra/strap/LSAGG-.lsp')
-rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/algebra/strap/LSAGG-.lsp b/src/algebra/strap/LSAGG-.lsp index 8adc9781..f0fa12ff 100644 --- a/src/algebra/strap/LSAGG-.lsp +++ b/src/algebra/strap/LSAGG-.lsp @@ -642,9 +642,8 @@ (EXIT |l|)))) (DEFUN |LSAGG-;removeDuplicates!;2A;24!0| (|#1| $$) - (LET (($ (|getShellEntry| $$ 0))) - (SPADCALL |#1| - (SPADCALL (|getShellEntry| $$ 1) (|getShellEntry| $ 18)) + (LET (($ (SVREF $$ 0))) + (SPADCALL |#1| (SPADCALL (SVREF $$ 1) (|getShellEntry| $ 18)) (|getShellEntry| $ 72)))) (DEFUN |LSAGG-;<;2AB;25| (|x| |y| $) |