From f6e5de243353518085fbd39be9daef1f121a96e3 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 18 Feb 2011 03:51:28 +0000
Subject: Rename %veclit to %vector and %listlit to %list

---
 src/algebra/strap/URAGG-.lsp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/algebra/strap/URAGG-.lsp')

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
-- 
cgit v1.2.3