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: generic lens infrastructure

Browse Source
This commit is contained in:
Edward Langley
2025-06-28 14:47:10 -07:00
parent 7618f95482
commit f9d091759c
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
optics.lisp
View File

@ -217,3 +217,15 @@ contain the new value at the location focused by the lens."
(set 'a-lens 2 (set 'a-lens 2
(make-instance 'foo :a 1)))) #| (make-instance 'foo :a 1)))) #|
==> 3 |#) ==> 3 |#)
(defgeneric generic-lens (rec cb loc)
(:method ((rec hash-table) cb loc)
(funcall (funcall (make-hash-table-lens loc)
cb)
rec)))
(defun lens (loc)
"A lens for updating a hash-table, discarding previous values"
(lambda (cb)
(lambda (rec)
(generic-lens rec cb loc))))