anchor.diff:    "Depth of the tag being output.")
   
   (defvar *pre* nil)
  +
  +(defparameter *fill-column* 80
  +  "Column at which to wrap text.
  +This is always measured from the start of the tag.")
   
   (defun fast-format (stream control-string &rest args)
     "Like `format', but bind `*print-pretty*' to nil."
  
positive.code:             `(princ ,arg ,stream))
            `(fast-format ,stream (formatter ,control-string) ,@args))
        call))
  
  (defmacro without-trailing-space (&body body)
    `(let ((*pending-space* nil))
  
negative.code:   (serapeum:with-thunk (body var at-end?)
      `(call/words ,body ,string)))
  
  (defun fill-text (string &optional safe? &aux (html *html*))
    (check-type string string)
    (cond
      ((= (length string) 0))
      (*pre*
       (fast-format html "~&~A~%" string))
      (*print-pretty*
       (let* ((start-col *depth*)
              (fill *fill-column*)
              (goal (+ fill start-col)))
         (when (whitespace (aref string 0))
           (write-char #\Space html))
         (indent html)
         (flet ((wrap ()
                  (terpri html)
                  (indent html start-col)))
           (declare (dynamic-extent #'wrap))
           (do-words (word at-end? string)
             (let* ((word (if safe? word (escape-string word)))
                    (len (length word)))
               (cond ((> len fill)
                      (wrap)
                      (write-string word html)
                      (wrap))
                     ((> (+ len (html-stream-column html))
                         goal)
                      (wrap)
                      (write-string word html))
                     (t (write-string word html))))
             (unless at-end?
               (write-char #\Space html))))))
      (t
       (with-space
         (if safe?
  