diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index c8f83c3d..9c0de8f7 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -770,14 +770,6 @@ ((EQUAL (CAAR Y) X) (RETURN (CAR Y))) ) (SETQ Y (CDR Y)) (GO A))))) -; 14.5 Updating - -(defun NREMOVE (list item &optional (count 1)) - (if (integerp count) - (delete item list :count count :test #'equal) - (delete item list :test #'equal))) - -(defun EFFACE (item list) (delete item list :count 1 :test #'equal)) ; 14.6 Miscellaneous |