diff --git a/data-lens.asd b/data-lens.asd
index f153aae..d74541a 100644
--- a/data-lens.asd
+++ b/data-lens.asd
@@ -4,7 +4,7 @@
   :license "MIT"
   :depends-on (:cl-ppcre
                :alexandria
-               :fwoar.lisputils)
+               )
   :serial t
   :components ((:file "lens")))
 
diff --git a/lens.lisp b/lens.lisp
index c65829d..75c8c35 100644
--- a/lens.lisp
+++ b/lens.lisp
@@ -258,13 +258,12 @@
     (let ((it-length (length it)))
       (when (> it-length 0)
         (values-list
-         (reduce (fw.lu:destructuring-lambda ((cur-max max-idx)
-                                              (next next-idx))
-                   (if (funcall relation
-                                (funcall measure cur-max)
-                                (funcall measure next))
-                       (list next next-idx)
-                       (list cur-max max-idx)))
+         (reduce (lambda (|arg1764| |arg1765|)
+                   (destructuring-bind (cur-max max-idx) |arg1764|
+                     (destructuring-bind (next next-idx) |arg1765|
+                       (if (funcall relation (funcall measure cur-max) (funcall measure next))
+                           (list next next-idx)
+                           (list cur-max max-idx)))))
                  (funcall (zipping 'vector)
                           it
                           (alexandria:iota it-length))))))))