Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
-
181508a9
by Raymond Toy at 2023-08-17T06:47:03-07:00
1 changed file:
Changes:
| ... | ... | @@ -785,17 +785,6 @@ |
| 785 | 785 | ;;; will apply the test to the elements from list1 and list2 in the correct
|
| 786 | 786 | ;;; order.
|
| 787 | 787 | ;;;
|
| 788 | -#+nil
|
|
| 789 | -(defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp))
|
|
| 790 | - "Returns the union of list1 and list2."
|
|
| 791 | - (declare (inline member))
|
|
| 792 | - (when (and testp notp) (error (intl:gettext "Test and test-not both supplied.")))
|
|
| 793 | - (let ((res list2))
|
|
| 794 | - (dolist (elt list1)
|
|
| 795 | - (unless (with-set-keys (member (apply-key key elt) list2))
|
|
| 796 | - (push elt res)))
|
|
| 797 | - res))
|
|
| 798 | - |
|
| 799 | 788 | (defun union (list1 list2 &key key (test #'eql testp) (test-not nil notp))
|
| 800 | 789 | "Returns the union of list1 and list2."
|
| 801 | 790 | (declare (inline member))
|