diff options
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 |