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))))