fiddlerwoaroof/data-lens
1
0
Fork 0
mirror of https://github.com/fiddlerwoaroof/data-lens.git synced 2025-11-08 10:16:32 +00:00
Code Issues Releases Wiki Activity

feat: two-arg INTO and continue restart for xfs

Browse Source
This commit is contained in:
Edward Langley
2025-06-28 14:58:32 -07:00
parent d52023f9f4
commit ffe67ab084
3 changed files with 54 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
t/transducers.lisp
View File

@ -237,6 +237,22 @@
'<
:key 'car))))
(5am:is (equalp #(1 2 3 4)
(data-lens.transducers:into #() '(1 2 3 4)))
"~s can be used to convert one type into another without a transducer"
'data-lens.transducers:into)
(5am:is (equalp #(1 2 4)
(handler-bind ((simple-error #'continue))
(data-lens.transducers:into #()
(data-lens.transducers:mapping
(lambda (it)
(if (= it 3)
(error "fail")
it)))
'(1 2 3 4))))
"transducers provide a continue restart")
(loop for type in '(vector list)
do (5am:is (equalp #(1 2 3 4 5 6)
(data-lens.transducers:into #(1 2 3)