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/strap/ISTRING.lsp | |
| 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/strap/ISTRING.lsp')
| -rw-r--r-- | src/algebra/strap/ISTRING.lsp | 10 |
1 files changed, 4 insertions, 6 deletions
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|))) |