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 | |
| 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')
| -rw-r--r-- | src/algebra/strap/CLAGG-.lsp | 3 | ||||
| -rw-r--r-- | src/algebra/strap/HOAGG-.lsp | 9 | ||||
| -rw-r--r-- | src/algebra/strap/LSAGG-.lsp | 5 |
3 files changed, 6 insertions, 11 deletions
diff --git a/src/algebra/strap/CLAGG-.lsp b/src/algebra/strap/CLAGG-.lsp index 021832f1..91ec911e 100644 --- a/src/algebra/strap/CLAGG-.lsp +++ b/src/algebra/strap/CLAGG-.lsp @@ -112,8 +112,7 @@ (|getShellEntry| $ 39))) (DEFUN |CLAGG-;remove;S2A;10!0| (|#1| $$) - (SPADCALL |#1| (|getShellEntry| $$ 1) - (|getShellEntry| (|getShellEntry| $$ 0) 38))) + (SPADCALL |#1| (SVREF $$ 1) (|getShellEntry| (SVREF $$ 0) 38))) (DEFUN |CLAGG-;reduce;MA3S;11| (|f| |x| |s1| |s2| $) (SPADCALL |f| (SPADCALL |x| (|getShellEntry| $ 9)) |s1| |s2| diff --git a/src/algebra/strap/HOAGG-.lsp b/src/algebra/strap/HOAGG-.lsp index faa12149..53a50ebe 100644 --- a/src/algebra/strap/HOAGG-.lsp +++ b/src/algebra/strap/HOAGG-.lsp @@ -38,8 +38,7 @@ (|getShellEntry| $ 12))) (DEFUN |HOAGG-;eval;ALA;1!0| (|#1| $$) - (SPADCALL |#1| (|getShellEntry| $$ 1) - (|getShellEntry| (|getShellEntry| $$ 0) 10))) + (SPADCALL |#1| (SVREF $$ 1) (|getShellEntry| (SVREF $$ 0) 10))) (DEFUN |HOAGG-;#;ANni;2| (|c| $) (LIST-LENGTH (SPADCALL |c| (|getShellEntry| $ 15)))) @@ -114,16 +113,14 @@ (|getShellEntry| $ 36))) (DEFUN |HOAGG-;count;SANni;8!0| (|#1| $$) - (SPADCALL (|getShellEntry| $$ 1) |#1| - (|getShellEntry| (|getShellEntry| $$ 0) 34))) + (SPADCALL (SVREF $$ 1) |#1| (|getShellEntry| (SVREF $$ 0) 34))) (DEFUN |HOAGG-;member?;SAB;9| (|e| |c| $) (SPADCALL (CONS #'|HOAGG-;member?;SAB;9!0| (VECTOR $ |e|)) |c| (|getShellEntry| $ 38))) (DEFUN |HOAGG-;member?;SAB;9!0| (|#1| $$) - (SPADCALL (|getShellEntry| $$ 1) |#1| - (|getShellEntry| (|getShellEntry| $$ 0) 34))) + (SPADCALL (SVREF $$ 1) |#1| (|getShellEntry| (SVREF $$ 0) 34))) (DEFUN |HOAGG-;coerce;AOf;10| (|x| $) (SPADCALL 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| $) |