From b90ec55ea2329e5ffeda7f6cbd807f596c9cc444 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Thu, 28 Apr 2011 18:26:46 +0000
Subject: more cleanup

---
 src/boot/strap/ast.clisp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap')

diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp
index 9597b66d..1ab3b6dd 100644
--- a/src/boot/strap/ast.clisp
+++ b/src/boot/strap/ast.clisp
@@ -1708,7 +1708,7 @@
         (T NIL)))))
 
 (DEFUN |shoeCompTran1| (|x|)
-  (PROG (|res| |newbindings| |r| |ISTMP#2| |l| |ISTMP#1| U)
+  (PROG (|args| |res| |newbindings| |r| |ISTMP#2| |l| |ISTMP#1| U)
     (DECLARE (SPECIAL |$fluidVars| |$locVars| |$dollarVars|))
     (RETURN
       (COND
@@ -1793,6 +1793,18 @@
                                      (SETQ |bfVar#131|
                                       (CDR |bfVar#131|)))))))
                         (SETQ |bfVar#129| (CDR |bfVar#129|))))))
+             ((AND (CONSP |x|) (EQ (CAR |x|) '|vector|)
+                   (PROGN
+                     (SETQ |ISTMP#1| (CDR |x|))
+                     (AND (CONSP |ISTMP#1|) (NULL (CDR |ISTMP#1|))
+                          (PROGN
+                            (SETQ |ISTMP#2| (CAR |ISTMP#1|))
+                            (AND (CONSP |ISTMP#2|)
+                                 (EQ (CAR |ISTMP#2|) 'LIST)
+                                 (PROGN
+                                   (SETQ |args| (CDR |ISTMP#2|))
+                                   T))))))
+              (CONS 'VECTOR |args|))
              (T (|shoeCompTran1| (CAR |x|))
                 (|shoeCompTran1| (CDR |x|)))))))))
 
-- 
cgit v1.2.3