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" :license "MIT"
:depends-on (:cl-ppcre :depends-on (:cl-ppcre
:alexandria :alexandria
:fwoar.lisputils) )
:serial t :serial t
:components ((:file "lens"))) :components ((:file "lens")))

13
lens.lisp
View File

@ -258,13 +258,12 @@
(let ((it-length (length it))) (let ((it-length (length it)))
(when (> it-length 0) (when (> it-length 0)
(values-list (values-list
(reduce (fw.lu:destructuring-lambda ((cur-max max-idx) (reduce (lambda (|arg1764| |arg1765|)
(next next-idx)) (destructuring-bind (cur-max max-idx) |arg1764|
(if (funcall relation (destructuring-bind (next next-idx) |arg1765|
(funcall measure cur-max) (if (funcall relation (funcall measure cur-max) (funcall measure next))
(funcall measure next)) (list next next-idx)
(list next next-idx) (list cur-max max-idx)))))
(list cur-max max-idx)))
(funcall (zipping 'vector) (funcall (zipping 'vector)
it it
(alexandria:iota it-length)))))))) (alexandria:iota it-length))))))))