<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Hi,<div><br></div><div>I would like to use CL-WHO for a little project of mine and I am getting bogged down by the <font class="Apple-style-span" face="'Courier New'">:indent</font> behavior. Note that I am not trying to generate any <font class="Apple-style-span" face="'Courier New'">PRE</font> tags (yet). The following snippet illustrates the problem. Given the expansion of <font class="Apple-style-span" face="'Courier New'">with-html-output</font>,<font class="Apple-style-span" face="'Courier New'"> cl-who::*indent* </font>does not behave as a special variable and this prevents me from producing "properly" indented HTML.<br><div><br><font class="Apple-style-span" face="'Courier New'">(use-package "CL-WHO")<br><br>(defun who-test (x &optional (out *standard-output*) (indent 2))<br> (let ((cl-who::*indent* indent))<br> (declare (special cl-who::*indent*))<br> (with-html-output (out out :indent 4 <font class="Apple-style-span" color="#FF0000">#| indent |#</font>)<br> (htm (:body (:frameset :rows "65px" :border 0 :noresize "noresize"<br> (frame-stuff x)))<br> ))))<br><br>(defun frame-stuff (x &optional (out *standard-output*))<br> (with-html-output (out out :indent 3)<br> (htm (:frame :src x))))<br></font><br><div>If you remove the 4 and uncomment <font class="Apple-style-span" face="'Courier New'">indent</font> you will see what happens.</div><div><br></div><div>Any suggestions about how to "fix" this? Note that I do want the inner function pretty much 'as-is'.</div><div><br></div><div>Cheers</div><div><br></div><div>Marco</div><div><br></div></div></div></body></html>