diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
commit | b90ec55ea2329e5ffeda7f6cbd807f596c9cc444 (patch) | |
tree | 0047eda31d3ac03cc7f4be9dcfcc8e959959903a /src/boot/strap/ast.clisp | |
parent | 9c53b933216af4ae6c7233384ace756572dcb597 (diff) | |
download | open-axiom-b90ec55ea2329e5ffeda7f6cbd807f596c9cc444.tar.gz |
more cleanup
Diffstat (limited to 'src/boot/strap/ast.clisp')
-rw-r--r-- | src/boot/strap/ast.clisp | 14 |
1 files changed, 13 insertions, 1 deletions
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|))))))))) |