diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 00:44:12 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 00:44:12 +0000 |
| commit | 8470ab862150f003472a1bb05605972c34a2005e (patch) | |
| tree | 3237e28d9b84a4d750f03fbd1d46c7d8837a119b /src/interp | |
| parent | 52889faf70db19459d18fd18123635479e7266d1 (diff) | |
| download | open-axiom-8470ab862150f003472a1bb05605972c34a2005e.tar.gz | |
* interp/vmlisp.lisp (remove): Remove.
(REMOVEQ, NREMOVEQ): Likewise.
* boot/utility.boot (removeSymbol, removeScalar, removeValue)
(remove): New.
* boot/ast.boot (bfMDef): Use applySubst in lieu of SUBLIS.
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index b766a79f..590aa4a8 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -739,16 +739,6 @@ ((and (atom item) (not (arrayp item))) (member item sequence)) (T (member item sequence :test #'equalp)))) -(defun |remove| (list item &optional (count 1)) - (if (integerp count) - (remove item list :count count :test #'equalp) - (remove item list :test #'equalp))) - -(defun REMOVEQ (list item &optional (count 1)) - (if (integerp count) - (remove item list :count count :test #'eq) - (remove item list :test #'eq))) - ; 14.2 Accessing (defun |last| (x) (car (lastpair x))) @@ -787,11 +777,6 @@ (delete item list :count count :test #'equal) (delete item list :test #'equal))) -(defun NREMOVEQ (list item &optional (count 1)) - (if (integerp count) - (delete item list :count count ) - (delete item list ))) - (defun EFFACE (item list) (delete item list :count 1 :test #'equal)) ; 14.6 Miscellaneous |