Plaster
New
List
Login
common-lisp
default
anonymous
2024.03.24 01:07:19
(let ((tags '()) (forms '()) (results '())) (dolist (element body) (cond ((not (tagbody-tag-p element)) (push element forms)) ((null forms) (push element tags)) (t (push (cons tags (cons 'progn (nreverse forms))) results) (setf tags (list element)) (setf forms '())))) (nreverse results))
Raw
Annotate
Repaste
Edit