anchor.diff:          (make-html-stream x)
           (assure stream x))))
   
  -(serapeum:defmethods html-stream (s col line last-char base-stream)
  +(defgeneric elastic-newline (stream)
  +  (:method ((x t))
  +    (values)))
  +
  +(serapeum:defmethods html-stream (s col line last-char base-stream
  +                                    elastic-newline)
     (:method ensure-html-stream (s)
       s)
   
  
positive.code:     #\Newline)
  
    (:method stream-write-char (s char)
      ;; (when (nix elastic-newline)
      ;;   (write-char #\Newline s))
      (incf col 1)
      (write-char char base-stream)
      (setf last-char char)
  
negative.code:         (write-char #\Space s)))
      t)
  
    (:method elastic-newline (s)
      (setf elastic-newline t)))
  
  
  (defmacro with-block ((&key (stream '*html*)) &body body)
  