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

feat(utils): use FUNCTIONALIZE in data-lens. Slightly incompatible

Browse Source
This commit is contained in:
Edward
2020-12-30 22:08:03 -08:00
parent cf67a11e13
commit d232497011
1 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lens.lisp
View File

@ -248,8 +248,9 @@
:initial-value ())))) :initial-value ()))))
(defun-ct over (fun &key (result-type 'list)) (defun-ct over (fun &key (result-type 'list))
(let ((fun (functionalize fun)))
(lambda (seq) (lambda (seq)
(map result-type fun seq))) (map result-type fun seq))))
(defun-ct denest (&key (result-type 'list)) (defun-ct denest (&key (result-type 'list))
(lambda (seq) (lambda (seq)
@ -257,13 +258,16 @@
seq))) seq)))
(defmacro applying (fun &rest args) (defmacro applying (fun &rest args)
(alexandria:with-gensyms (seq) (alexandria:with-gensyms (seq fsym)
`(lambda (,seq) `(let ((,fsym (functionalize ,fun)))
(apply ,fun ,@args ,seq)))) (lambda (,seq)
(apply ,fsym ,@args ,seq)))))
(defun-ct on (fun key) (defun-ct on (fun key)
(let ((fun (functionalize fun))
(key (functionalize key)))
(lambda (it) (lambda (it)
(funcall fun (funcall key it)))) (funcall fun (funcall key it)))))
(defun filler (length1 length2 fill-value) (defun filler (length1 length2 fill-value)
(if (< length1 length2) (if (< length1 length2)