From 0e88b70dfbb109f73fe0e8cac2c25ef445cb2c50 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 7 Mar 2010 01:00:16 +0000
Subject: 	* interp/g-opt.boot ($VMsideEffectFreeOperators): New. 
 ($simpleVMoperators): Augment it. 	(semiSimpleRelativeTo?): New. 
 (isSimpleVMForm): Use it. 	* interp/c-util.boot (forwardingCall?): New. 
 (usesVariablesLinearly?): Likewise. 	(expandableDefinition?): Likewise. 
 (foldSpadcall): Tidy. 	(foldExportedFunctionReferences): If a function is
 discovered to 	be expandable, make it so. 	* interp/define.boot
 (spadCompileOrSetq): Tidy.

---
 src/algebra/strap/ISTRING.lsp | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/algebra/strap/ISTRING.lsp')

diff --git a/src/algebra/strap/ISTRING.lsp b/src/algebra/strap/ISTRING.lsp
index 70450c5b..24cf2826 100644
--- a/src/algebra/strap/ISTRING.lsp
+++ b/src/algebra/strap/ISTRING.lsp
@@ -9,9 +9,6 @@
 
 (DECLAIM (FTYPE (FUNCTION (|%Shell|) |%Thing|) |ISTRING;empty;$;2|)) 
 
-(PUT '|ISTRING;empty;$;2| '|SPADreplace|
-     '(XLAM NIL (MAKE-FULL-CVEC 0))) 
-
 (DECLAIM (FTYPE (FUNCTION (|%Thing| |%Shell|) |%Boolean|)
                 |ISTRING;empty?;$B;3|)) 
 
@@ -135,9 +132,7 @@
   (DECLARE (IGNORE $))
   (MAKE-FULL-CVEC |n| |c|)) 
 
-(DEFUN |ISTRING;empty;$;2| ($)
-  (DECLARE (IGNORE $))
-  (MAKE-FULL-CVEC 0)) 
+(DEFUN |ISTRING;empty;$;2| ($) (MAKE-FULL-CVEC 0)) 
 
 (DEFUN |ISTRING;empty?;$B;3| (|s| $) (EQL (QCSIZE |s|) 0)) 
 
-- 
cgit v1.2.3