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

refactor(transducers): simplify list builder

Browse Source
This commit is contained in:
fiddlerwoaroof
2020-12-19 19:34:20 -08:00
parent 5bd17dc8e5
commit a7399b43c6
1 changed files with 7 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
transducers.lisp
View File

@ -127,22 +127,19 @@
(defmethod init ((it (eql 'list-builder))) (defmethod init ((it (eql 'list-builder)))
(declare (optimize (speed 3))) (declare (optimize (speed 3)))
(coerce (vector nil nil) (let ((it (list nil)))
'(simple-array list (2)))) (coerce (vector it it)
'(simple-array list (2)))))
(defmethod stepper ((it (eql 'list-builder))) (defmethod stepper ((it (eql 'list-builder)))
(lambda (acc a) (lambda (acc a)
(declare (optimize (speed 3)) (declare (optimize (speed 3))
(type (simple-array list (2)) acc)) (type (simple-array list (2)) acc))
(if (elt acc 1) (let* ((to-build (elt acc 1)))
(let* ((to-build (elt acc 1))) (push a (cdr to-build))
(push a (cdr to-build)) (setf (elt acc 1) (cdr to-build)))
(setf (elt acc 1) (cdr to-build)))
(let ((new (list a)))
(setf (elt acc 0) new
(elt acc 1) new)))
acc)) acc))
(defmethod unwrap ((it (eql 'list-builder)) obj) (defmethod unwrap ((it (eql 'list-builder)) obj)
(elt obj 0)) (cdr (elt obj 0)))
(defclass lazy-sequence () (defclass lazy-sequence ()
((%next :initarg :next :reader next))) ((%next :initarg :next :reader next)))