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(keys): add keys function

Browse Source
This commit is contained in:
Edward Langley
2022-03-29 21:08:55 -07:00
parent 858bd9d2ff
commit f75af164ea
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lens.lisp
View File

@ -125,6 +125,12 @@
(declare (dynamic-extent map)) (declare (dynamic-extent map))
(extract-key map key))) (extract-key map key)))
(defun keys (key &rest keys)
(lambda (map)
(loop for key in (cons key keys)
for cur = (extract-key map key) then (extract-key cur key)
finally (return cur))))
(defun-ct regex-match (regex) (defun-ct regex-match (regex)
(lambda (data) (lambda (data)
(cl-ppcre:scan-to-strings regex data))) (cl-ppcre:scan-to-strings regex data)))