[cl-who-devel] Problems with indent

[Marco Antoniotti]

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cl-who-devel/attachments/20110417/39dadad4/attachment.html>