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