function using cl-who:with-html-output ignoring parameter
I'm not sure whether this is an issue with my use of cl-who
(specifically with-html-output-to-string
and with-html-output
) or an issue with my understanding of Common Lisp (as this is my first project using Lisp).
I created a function to create form fields:
开发者_如何学JAVA(defun form-field (type name label)
(cl-who:with-html-output (*standard-output* nil)
(:div :class "field"
(:label :for name label)
(:input :type type :name name))))
When using this function, ie: (form-field "text" "username" "Username")
the parameter label
seems to be ignored... the HTML output is:
<div class="field"><label for="username"></label>
<input type="text" name="username"/></div>
instead of the expected output:
<div class="field"><label for="username">Username</label>
<input type="text" name="username"/></div>
If I modify the function and add a print statement:
(defun form-field (type name label)
(cl-who:with-html-output (*standard-output* nil)
(print label)
(:div :class "field"
(:label :for name label)
(:input :type type :name name))))
The "Username" string is successfully output (but still ignored in the HTML)... any ideas what might cause this?
Keep in mind, I'm calling this function within a cl-who:with-html-output-to-string
for use with hunchentoot.
This situation is described in the CL-WHO evaluation rules under "A form which is neither a string nor a keyword..." (:label :for name label)
falls under that rule, and it's just evaluated, but it doesn't output anything so it has no effect. One easy fix: use (str label)
instead.
精彩评论