nikodemus/screamer — Issue #12: EQUALV / A-MEMBER-OFV suboptimalities
Author: nikodemus
Created: 2011-10-31 18:38:01+00:00
State: open

(defun foo (list1 list2)
(let ((v1 (a-member-ofv list1))
(v2 (a-member-ofv list2)))
(assert! (equalv v1 v2))
v1))

(foo '(:a :b) '(:c :d :a)) ; result isn't bound to :A
(foo '(t nil) '(t :a)) ; result isn't bound T
(foo '(1 2 3) '(nil t 3)) ; signals an error