This is an old revision of the document!
~~CLOUD:33~~
(defun expand-lhtml (list)
;;(format t "expaing: ~a~%" list)
(let ((forms list))
(if (not (eq nil forms))
(mapcar #'(lambda (x)
(if (listp x)
(if (listp (car x))
(cons 'progn (expand-lhtml x))
(cons (car x) (expand-lhtml (cdr x))))
x))
forms))))