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

chore: don't depend on serapeum, other cleanup

Browse Source
This commit is contained in:
Edward Langley
2024-08-12 00:42:16 -07:00
parent d6aef4f662
commit 35ac09aff4
6 changed files with 32 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
lazy-sequence.lisp
View File

@ -29,6 +29,11 @@
(lambda ()
v))))
(defun unsplice (form)
(if form
(list form)
nil))
(defun iota (&key (start 0) (step 1) count)
(lazy-sequence
(funcall
@ -36,14 +41,14 @@
`(lambda ()
(declare (optimize (speed 3) (debug 1) (safety 1)))
(let ((init ,start)
,@(serapeum:unsplice (when count
'(iterations 0))))
,@(unsplice (when count
'(iterations 0))))
(declare (type (integer ,start
,(if count
(+ start (* count step))
'*))
init)
,@(serapeum:unsplice
,@(unsplice
(when count
`(type (integer 0 ,count) iterations))))
(lambda ()
@ -53,6 +58,6 @@
'(progn))
(prog1 init
(incf init ,step)
,@(serapeum:unsplice
,@(unsplice
(when count
'(incf iterations))))))))))))