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/URAGG-.lsp | |
| parent | 3691e956e1428f08363a0ed37e3f4f0f79b89ec0 (diff) | |
| download | open-axiom-f6e5de243353518085fbd39be9daef1f121a96e3.tar.gz | |
Rename %veclit to %vector and %listlit to %list
Diffstat (limited to 'src/algebra/strap/URAGG-.lsp')
| -rw-r--r-- | src/algebra/strap/URAGG-.lsp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/algebra/strap/URAGG-.lsp b/src/algebra/strap/URAGG-.lsp index c883d258..ab3ee05e 100644 --- a/src/algebra/strap/URAGG-.lsp +++ b/src/algebra/strap/URAGG-.lsp @@ -263,7 +263,7 @@ (EXIT |y|)))) (DEFUN |URAGG-;cycleTail;2A;18| (|x| $) - (PROG (|z| |y|) + (PROG (|y| |z|) (RETURN (COND ((SPADCALL @@ -278,14 +278,14 @@ ((NOT (NOT (SPADCALL |x| |z| (|getShellEntry| $ 54)))) (RETURN NIL)) - (T (SEQ (LETT |y| |z| |URAGG-;cycleTail;2A;18|) + (T (SEQ (SETQ |y| |z|) (EXIT (SETQ |z| (SPADCALL |z| (|getShellEntry| $ 14)))))))) (EXIT |y|))))))) (DEFUN |URAGG-;cycleEntry;2A;19| (|x| $) - (PROG (|z| |l| |y|) + (PROG (|y| |z| |l|) (RETURN (COND ((SPADCALL |x| (|getShellEntry| $ 20)) |x|) @@ -305,7 +305,7 @@ (T (SEQ (SETQ |z| (SPADCALL |z| (|getShellEntry| $ 14))) (EXIT (SETQ |l| (+ |l| 1))))))) - (LETT |y| |x| |URAGG-;cycleEntry;2A;19|) + (SETQ |y| |x|) (LET ((|k| 1)) (LOOP (COND |