[parenscript-devel] ps-html clisp loop

Mon May 25 00:56:35 UTC 2009

Thanks for the bug report. I just pushed a fix.

Vladimir

On Sun, May 24, 2009 at 8:03 AM, Olaf Ruppert <oruppert at 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 at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/parenscript-devel
>