diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-06-20 22:12:10 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-06-20 22:12:10 +0000 |
| commit | bf21f6c3c98ea62bbd952ecd2382b63f4cd370bb (patch) | |
| tree | 7a5bbd28009759b1c787d3df4c4ba5960cd11280 /src/algebra/strap/OUTFORM.lsp | |
| parent | 9cde874de258533a18944602afa62c9e56ac991a (diff) | |
| download | open-axiom-bf21f6c3c98ea62bbd952ecd2382b63f4cd370bb.tar.gz | |
* interp/g-opt.boot (changeVariableDefinitionToStore): New.
(optimizeFunctionDef): Use it.
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index 5cc0a555..70ac70a6 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -675,11 +675,8 @@ (T (LET ((|u| (CAR #0#))) (COND ((EQCAR |u| |c|) - (LETT |l1| (APPEND (CDR |u|) |l1|) - |OUTFORM;blankSeparate;L$;35|)) - ('T - (LETT |l1| (CONS |u| |l1|) - |OUTFORM;blankSeparate;L$;35|)))))) + (SETQ |l1| (APPEND (CDR |u|) |l1|))) + ('T (SETQ |l1| (CONS |u| |l1|))))))) (SETQ #0# (CDR #0#)))) (EXIT (CONS |c| |l1|)))))) @@ -730,8 +727,7 @@ (DEFUN |OUTFORM;supersub;$L$;47| (|a| |l| $) (SEQ (COND ((ODDP (LENGTH |l|)) - (LETT |l| (APPEND |l| (LIST (|OUTFORM;empty;$;73| $))) - |OUTFORM;supersub;$L$;47|))) + (SETQ |l| (APPEND |l| (LIST (|OUTFORM;empty;$;73| $)))))) (EXIT (CONS 'ALTSUPERSUB (CONS |a| |l|))))) (DEFUN |OUTFORM;hconcat;3$;48| (|a| |b| $) |