aboutsummaryrefslogtreecommitdiff
path: root/src/interp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp')
-rw-r--r--src/interp/vmlisp.lisp15
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