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 24e904c1..ab04002a 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -722,14 +722,6 @@ (defun VEC2LIST (vec) (coerce vec 'list)) -; note default test for union, intersection and set-difference is eql -;; following are defined so as to preserve ordering in union.lisp -;;(defun SETDIFFERENCE (l1 l2) (set-difference l1 l2 :test #'equalp)) -;;(defun SETDIFFERENCEQ (l1 l2) (set-difference l1 l2 :test #'eq)) -;;(defun |union| (l1 l2) (union l1 l2 :test #'equalp)) -;;(defun UNIONQ (l1 l2) (union l1 l2 :test #'eq)) -;;(defun |intersection| (l1 l2) (intersection l1 l2 :test #'equalp)) -;;(defun INTERSECTIONQ (l1 l2) (intersection l1 l2 :test #'eq)) (defun |member| (item sequence) (cond ((symbolp item) (member item sequence :test #'eq)) ((stringp item) (member item sequence :test #'equal)) |