Raymond Toy pushed to branch master at cmucl / cmucl
Commits: 181508a9 by Raymond Toy at 2023-08-17T06:47:03-07:00 Remove old version of union
Oops. Forgot to remove this in !159, so we do it now.
- - - - -
1 changed file:
- src/code/list.lisp
Changes:
===================================== src/code/list.lisp ===================================== @@ -785,17 +785,6 @@ ;;; will apply the test to the elements from list1 and list2 in the correct ;;; order. ;;; -#+nil -(defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp)) - "Returns the union of list1 and list2." - (declare (inline member)) - (when (and testp notp) (error (intl:gettext "Test and test-not both supplied."))) - (let ((res list2)) - (dolist (elt list1) - (unless (with-set-keys (member (apply-key key elt) list2)) - (push elt res))) - res)) - (defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp)) "Returns the union of list1 and list2." (declare (inline member))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/181508a9edeaf570fd3f7a8e...