anchor.diff:            (start (or start 0)))
         (declare (type array-index start end))
         (nlet rec ((start start))
  -        ;; (when (nix elastic-newline)
  -        ;;   (unless (serapeum:string^= #\Newline string)
  -        ;;     (incf line)
  -        ;;     (setf col 0)
  -        ;;     (terpri base-stream)))
  +        (when (nix elastic-newline)
  +          (unless (serapeum:string^= #\Newline string)
  +            (incf line)
  +            (setf col 0)
  +            (terpri base-stream)))
           (let ((newline-count (count #\Newline string :start start :end end)))
             (if (= newline-count 0)
                 (progn
  
positive.code:               ;; The last char defaults to newline to get reasonable
                ;; behavior from fresh-line.
                :initform #\Newline)
     (base-stream :type stream
                  :initarg :base-stream)))
  
  
negative.code:         (write-char #\Space s)))
      t)
  
    (:method elastic-newline (s)
      (setf elastic-newline t)))
  
  
  (defmacro with-block ((&key (stream '*html*)) &body body)
  