anchor.diff:                ;; The last char defaults to newline to get reasonable
                 ;; behavior from fresh-line.
                 :initform #\Newline)
  +   (elastic-newline :type boolean
  +                    :initform nil)
      (base-stream :type stream
                   :initarg :base-stream)))
   
  
positive.code:         (write-char #\Space s)))
      t)
  
    ;; (:method elastic-newline (s)
    ;;   (setf elastic-newline t))
    )
  
  
  (defmacro with-block ((&key (stream '*html*)) &body body)
  
negative.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)
  