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: reduce-generic for fset:map

Browse Source
This commit is contained in:
Edward Langley
2025-06-28 14:48:17 -07:00
parent f9d091759c
commit d52023f9f4
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
data-lens-fset.lisp
View File

@ -63,6 +63,11 @@
rec)) rec))
(defmethod data-lens.transducers.internals:reduce-generic ((map fset:map) (func function) init)
(fset:reduce (lambda (acc k v)
(funcall func acc (list k v)))
map
:initial-value init))
(defmethod data-lens.transducers.internals:builder-for-input ((map fset:map)) (defmethod data-lens.transducers.internals:builder-for-input ((map fset:map))
(values 'fset-map-builder (values 'fset-map-builder
map)) map))
@ -104,6 +109,7 @@
m))) m)))
(defun make-bag-lens (item) (defun make-bag-lens (item)
(make-set-lens item)) (make-set-lens item))
(defmethod data-lens.lenses:generic-lens ((rec fset:bag) cb loc) (defmethod data-lens.lenses:generic-lens ((rec fset:bag) cb loc)
(funcall (funcall (make-set-lens loc) (funcall (funcall (make-set-lens loc)
cb) cb)