diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-02-04 00:04:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-02-04 00:04:31 +0000 |
| commit | e2618c92315f6b544e41c9b7d4cad92adcf98655 (patch) | |
| tree | 82393fded88c670ad34286063f30c20d9ad9e9e0 /src/algebra | |
| parent | a6dfd60ca4931a8c11f0afbd4533d4c6cc960e1e (diff) | |
| download | open-axiom-e2618c92315f6b544e41c9b7d4cad92adcf98655.tar.gz | |
* interp/c-util.boot (mutateConditionalFormWithUnaryFunction):
Rename from mutateCONDFormWithUnaryFunction. Update callers
(mutateBindingFormWithUnaryFunction): Rename from
mutateLETFormWithUnaryFunction. Allow %bind form too.
Update callers.
Diffstat (limited to 'src/algebra')
| -rw-r--r-- | src/algebra/strap/ILIST.lsp | 2 | ||||
| -rw-r--r-- | src/algebra/strap/ISTRING.lsp | 10 | ||||
| -rw-r--r-- | src/algebra/strap/SYMBOL.lsp | 2 |
3 files changed, 6 insertions, 8 deletions
diff --git a/src/algebra/strap/ILIST.lsp b/src/algebra/strap/ILIST.lsp index 84a22d1f..27411076 100644 --- a/src/algebra/strap/ILIST.lsp +++ b/src/algebra/strap/ILIST.lsp @@ -195,7 +195,7 @@ (EXIT |x|))) (DEFUN |ILIST;copy;2$;20| (|x| $) - (LET ((|y| (SPADCALL (|getShellEntry| $ 16)))) + (LET ((|y| NIL)) (SEQ (LET ((|i| 0)) (LOOP (COND diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp index 59373d55..852c3da2 100644 --- a/src/algebra/strap/ISTRING.lsp +++ b/src/algebra/strap/ISTRING.lsp @@ -487,22 +487,20 @@ $))))) (DEFUN |ISTRING;concat;L$;28| (|l| $) - (LET ((|t| (SPADCALL + (LET ((|t| (MAKE-FULL-CVEC (LET ((#0=#:G1472 NIL) (#1=#:G1473 T) (#2=#:G1517 |l|)) (LOOP (COND ((ATOM #2#) (RETURN (COND (#1# 0) (T #0#)))) (T (LET ((|s| (CAR #2#))) - (LET ((#3=#:G1471 - (SPADCALL |s| - (|getShellEntry| $ 16)))) + (LET ((#3=#:G1471 (LENGTH |s|))) (COND (#1# (SETQ #0# #3#)) (T (SETQ #0# (+ #0# #3#)))) (SETQ #1# NIL))))) (SETQ #2# (CDR #2#)))) - (|spadConstant| $ 53) (|getShellEntry| $ 9))) + (|spadConstant| $ 53))) (|i| (SVREF $ 6))) (SEQ (LET ((#4=#:G1516 |l|)) (LOOP @@ -515,7 +513,7 @@ (EXIT |t|)))) (DEFUN |ISTRING;copyInto!;2$I$;29| (|y| |x| |s| $) - (LET ((|m| (SPADCALL |x| (|getShellEntry| $ 16))) (|n| (LENGTH |y|))) + (LET ((|m| (LENGTH |x|)) (|n| (LENGTH |y|))) (SEQ (SETQ |s| (- |s| (SVREF $ 6))) (COND ((OR (MINUSP |s|) (< |n| (+ |s| |m|))) diff --git a/src/algebra/strap/SYMBOL.lsp b/src/algebra/strap/SYMBOL.lsp index 71fd3a5c..320352ff 100644 --- a/src/algebra/strap/SYMBOL.lsp +++ b/src/algebra/strap/SYMBOL.lsp @@ -278,7 +278,7 @@ (DEFUN |SYMBOL;latex;$S;25| (|e| $) (PROG (|ss| |lo| |sc|) (RETURN - (LET ((|s| (PNAME (SPADCALL |e| (|getShellEntry| $ 100))))) + (LET ((|s| (PNAME (|SYMBOL;name;2$;31| |e| $)))) (SEQ (COND ((< 1 (LENGTH |s|)) (COND |