(defun&nbsp;make-collector&nbsp;()<br />
&nbsp;&nbsp;(let&nbsp;((none&nbsp;'#:none))<br />
&nbsp;&nbsp;&nbsp;&nbsp;(declare&nbsp;(dynamic-extent&nbsp;none))<br />
&nbsp;&nbsp;&nbsp;&nbsp;(cl-utilities:with-collectors&nbsp;(buffer)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(return-from&nbsp;make-collector<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(lambda&nbsp;(&amp;optional&nbsp;(data&nbsp;none))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(unless&nbsp;(eq&nbsp;data&nbsp;none)<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(buffer&nbsp;data))<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;buffer)))))<br />
(setf&nbsp;a&nbsp;(make-collector))&nbsp;<br />
(funcall&nbsp;a&nbsp;2)&nbsp;<br />
(funcall&nbsp;a&nbsp;3)&nbsp;<br />
(funcall&nbsp;a&nbsp;4)<br />
(funcall&nbsp;a)&nbsp;;&nbsp;==&gt;&nbsp;(2&nbsp;3&nbsp;4)<br />
<br />
<br />
;&nbsp;how&nbsp;to&nbsp;delete&nbsp;element&nbsp;3&nbsp;from&nbsp;a's&nbsp;buffer/collector&nbsp;?<br />