From 8470ab862150f003472a1bb05605972c34a2005e Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 30 Apr 2011 00:44:12 +0000 Subject: * 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. --- src/interp/vmlisp.lisp | 15 --------------- 1 file changed, 15 deletions(-) (limited to 'src/interp') 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 -- cgit v1.2.3