diff options
author | dos-reis <gdr@axiomatics.org> | 2010-03-07 01:00:16 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-03-07 01:00:16 +0000 |
commit | 0e88b70dfbb109f73fe0e8cac2c25ef445cb2c50 (patch) | |
tree | 5d1195c4744a08d97377bbb9d0a5bf6f4f152c8a /src/algebra/strap/ISTRING.lsp | |
parent | 0d4a863f2fa7e85a9bbd044626df9ea20704cb9e (diff) | |
download | open-axiom-0e88b70dfbb109f73fe0e8cac2c25ef445cb2c50.tar.gz |
* 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.
Diffstat (limited to 'src/algebra/strap/ISTRING.lsp')
-rw-r--r-- | src/algebra/strap/ISTRING.lsp | 7 |
1 files changed, 1 insertions, 6 deletions
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)) |