[parenscript-devel] ps-html clisp loop - parenscript-devel - mailman3.common-lisp.net

24 May 2009


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