Sorry for the late reply, but CL-WHO is essentially unmaintained these days. I noticed that you're using an unexported variable, so I think you got what you deserved... :)
Patches (see http://weitz.de/patches.html) are welcome, but please take a look at the BKNR repository first where you'll find a preliminary 1.0.0 version of CL-WHO which might or might not do what you want.
Cheers, Edi.
On Sun, Apr 17, 2011 at 3:05 PM, Marco Antoniotti antoniotti.marco@disco.unimib.it wrote:
Hi, I would like to use CL-WHO for a little project of mine and I am getting bogged down by the :indent behavior. Note that I am not trying to generate any PRE tags (yet). The following snippet illustrates the problem. Given the expansion of with-html-output, cl-who::*indent* does not behave as a special variable and this prevents me from producing "properly" indented HTML.
(use-package "CL-WHO")
(defun who-test (x &optional (out *standard-output*) (indent 2)) (let ((cl-who::*indent* indent)) (declare (special cl-who::*indent*)) (with-html-output (out out :indent 4 #| indent |#) (htm (:body (:frameset :rows "65px" :border 0 :noresize "noresize" (frame-stuff x))) ))))
(defun frame-stuff (x &optional (out *standard-output*)) (with-html-output (out out :indent 3) (htm (:frame :src x))))
If you remove the 4 and uncomment indent you will see what happens. Any suggestions about how to "fix" this? Note that I do want the inner function pretty much 'as-is'. Cheers Marco
cl-who-devel site list cl-who-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cl-who-devel