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/SINT.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/SINT.lsp')
| -rw-r--r-- | src/algebra/strap/SINT.lsp | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/src/algebra/strap/SINT.lsp b/src/algebra/strap/SINT.lsp index 47b51bcc..c0ec6dbb 100644 --- a/src/algebra/strap/SINT.lsp +++ b/src/algebra/strap/SINT.lsp @@ -295,7 +295,7 @@ ('T (SPADCALL |dev| |x| (|getShellEntry| $ 18)))))) (DEFUN |SINT;OMwrite;$S;2| (|x| $) - (PROG (|sp| |dev| |s|) + (PROG (|s| |sp| |dev|) (RETURN (SEQ (LETT |s| "" |SINT;OMwrite;$S;2|) (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$S;2|) @@ -307,11 +307,10 @@ (|SINT;writeOMSingleInt| |dev| |x| $) (SPADCALL |dev| (|getShellEntry| $ 24)) (SPADCALL |dev| (|getShellEntry| $ 25)) - (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$S;2|) - (EXIT |s|))))) + (SETQ |s| (OM-STRINGPTRTOSTRING |sp|)) (EXIT |s|))))) (DEFUN |SINT;OMwrite;$BS;3| (|x| |wholeObj| $) - (PROG (|sp| |dev| |s|) + (PROG (|s| |sp| |dev|) (RETURN (SEQ (LETT |s| "" |SINT;OMwrite;$BS;3|) (LETT |sp| (OM-STRINGTOSTRINGPTR |s|) |SINT;OMwrite;$BS;3|) @@ -323,8 +322,7 @@ (|SINT;writeOMSingleInt| |dev| |x| $) (COND (|wholeObj| (SPADCALL |dev| (|getShellEntry| $ 24)))) (SPADCALL |dev| (|getShellEntry| $ 25)) - (LETT |s| (OM-STRINGPTRTOSTRING |sp|) |SINT;OMwrite;$BS;3|) - (EXIT |s|))))) + (SETQ |s| (OM-STRINGPTRTOSTRING |sp|)) (EXIT |s|))))) (DEFUN |SINT;OMwrite;Omd$V;4| (|dev| |x| $) (SEQ (SPADCALL |dev| (|getShellEntry| $ 23)) |