fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 18:26:32 +00:00
Code Issues Releases Wiki Activity

Remove dependency

Browse Source
This commit is contained in:
Ed Langley
2018-12-31 14:19:19 -08:00
parent 379da55a94
commit 72a785dc80
2 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
data-lens.asd
View File

@ -4,7 +4,7 @@
:license "MIT"
:depends-on (:cl-ppcre
:alexandria
:fwoar.lisputils)
)
:serial t
:components ((:file "lens")))

13
lens.lisp
View File

@ -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))))))))