Thanks for the bug report. I just pushed a fix.
Vladimir
On Sun, May 24, 2009 at 8:03 AM, Olaf Ruppert oruppert@googlemail.com wrote:
parenscipt on clips does not generate attributes correct.
(parenscript::process-html-forms-lhtml '(((:body :style "width:72em") "teset"))) => ("<BODY>teset</BODY>")
to fix this, change the loop in process-html-forms-lhtml:
(loop with attrs = (cdar form) for (attr-name attr-val) on attrs by #'cddr for attr-test = (when (not (keywordp attr-name)) (let ((test attr-name)) (setf attr-name (pop attrs)) test)) do (if attr-test (push `(if ,attr-test (concat-string ,(format nil " ~A="" attr-name) ,attr-val """) "") r) (progn (push (format nil " ~A="" attr-name) r) (push attr-val r) (push """ r))))
parenscript-devel mailing list parenscript-devel@common-lisp.net http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel