diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-07 02:43:13 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-07 02:43:13 +0000 |
| commit | 64800be179812d1ff863cc629bcc6b21a0c7f8ac (patch) | |
| tree | 58c035aec699d3a0b633e751835df24510510765 /src/algebra/strap/OUTFORM.lsp | |
| parent | 351022a3ec02f6e131d54f3a5bcb27a8dfffbcb0 (diff) | |
| download | open-axiom-64800be179812d1ff863cc629bcc6b21a0c7f8ac.tar.gz | |
* interp/g-opt.boot (groupVariableDefinitions): Look into clauses
of conditional too.
Diffstat (limited to 'src/algebra/strap/OUTFORM.lsp')
| -rw-r--r-- | src/algebra/strap/OUTFORM.lsp | 23 |
1 files changed, 9 insertions, 14 deletions
diff --git a/src/algebra/strap/OUTFORM.lsp b/src/algebra/strap/OUTFORM.lsp index e1e58863..48fa6b0d 100644 --- a/src/algebra/strap/OUTFORM.lsp +++ b/src/algebra/strap/OUTFORM.lsp @@ -942,20 +942,15 @@ (LIST 'RARROW |a| |b|)) (DEFUN |OUTFORM;differentiate;$Nni$;97| (|a| |nn| $) - (PROG (|r| |s|) - (RETURN - (COND - ((ZEROP |nn|) |a|) - ((< |nn| 4) (|OUTFORM;prime;$Nni$;86| |a| |nn| $)) - (T (SEQ (LETT |r| - (SPADCALL - (|check-subtype| (PLUSP |nn|) - '(|PositiveInteger|) |nn|) - (|getShellEntry| $ 137)) - |OUTFORM;differentiate;$Nni$;97|) - (LETT |s| (SPADCALL |r| (|getShellEntry| $ 138)) - |OUTFORM;differentiate;$Nni$;97|) - (EXIT (|OUTFORM;super;3$;43| |a| (LIST 'PAREN |s|) $)))))))) + (COND + ((ZEROP |nn|) |a|) + ((< |nn| 4) (|OUTFORM;prime;$Nni$;86| |a| |nn| $)) + (T (LET* ((|r| (SPADCALL + (|check-subtype| (PLUSP |nn|) + '(|PositiveInteger|) |nn|) + (|getShellEntry| $ 137))) + (|s| (SPADCALL |r| (|getShellEntry| $ 138)))) + (|OUTFORM;super;3$;43| |a| (LIST 'PAREN |s|) $))))) (DEFUN |OUTFORM;sum;2$;98| (|a| $) (DECLARE (IGNORE $)) |