From 72a785dc8008b0c73b34e21e9e4492e2a0ab24f1 Mon Sep 17 00:00:00 2001 From: Ed Langley Date: Mon, 31 Dec 2018 14:19:19 -0800 Subject: [PATCH] Remove dependency --- data-lens.asd | 2 +- lens.lisp | 13 ++++++------- 2 files changed, 7 insertions(+), 8 deletions(-) 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))))))))