feat: curried equality

lens.lisp

@@ -234,8 +234,9 @@ contain the new value at the location focused by the lens."
            #:compress-runs #:combine-matching-lists #:sorted #:applicable-when
            #:of-length #:of-min-length #:of-max-length #:transform-head
            #:maximizing #:zipping #:applying #:splice-elt #:transform-elt #:denest
-           #:op #:defalias #:<> #:<>1
-           #:•))
+           #:op #:defalias #:<> #:<>1 #:== #:•
+           ))
+             
 (in-package :data-lens)
 
 
@@ -275,6 +276,10 @@ contain the new value at the location focused by the lens."
                when (equal key a-key) do
                  (return (car value)))))))
 
+(defun-ct == (target &key (test 'eql))
+  (lambda (v)
+    (funcall test target v)))
+
 (defun-ct deduplicate (&optional (test 'eql))
   (lambda (it)
     (remove-duplicates it :test test)))