From e2618c92315f6b544e41c9b7d4cad92adcf98655 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 4 Feb 2011 00:04:31 +0000
Subject: 	* interp/c-util.boot (mutateConditionalFormWithUnaryFunction):
 	Rename from mutateCONDFormWithUnaryFunction.  Update callers 
 (mutateBindingFormWithUnaryFunction): Rename from 
 mutateLETFormWithUnaryFunction.  Allow %bind form too. 	Update
 callers.

---
 src/algebra/strap/ILIST.lsp   |  2 +-
 src/algebra/strap/ISTRING.lsp | 10 ++++------
 src/algebra/strap/SYMBOL.lsp  |  2 +-
 3 files changed, 6 insertions(+), 8 deletions(-)

(limited to 'src/algebra')

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
-- 
cgit v1.2.3