3 ms·
(let* ((rlist (list '())) (last rlist)) (flet ((collect (item &aux (cons-cell (list item))) (setf (cdr last) cons-cell
by lispm 4y ago
(let* ((rlist (list '()))
(last rlist))
(flet ((collect (item &aux (cons-cell (list item)))
(setf (cdr last) cons-cell
last cons-cell)
item)
(finish ()
(cdr rlist)))
(dotimes (i 10)
(collect i))
(finish)))