aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-02-04 00:04:31 +0000
committerdos-reis <gdr@axiomatics.org>2011-02-04 00:04:31 +0000
commite2618c92315f6b544e41c9b7d4cad92adcf98655 (patch)
tree82393fded88c670ad34286063f30c20d9ad9e9e0 /src/algebra
parenta6dfd60ca4931a8c11f0afbd4533d4c6cc960e1e (diff)
downloadopen-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.lsp2
-rw-r--r--src/algebra/strap/ISTRING.lsp10
-rw-r--r--src/algebra/strap/SYMBOL.lsp2
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