anchor.diff:      (= col 0))
   
     (:method stream-write-char (s (char (eql #\Newline)))
  -    ;; (nix elastic-newline)
  +    (nix elastic-newline)
       (incf line)
       (setf col 0)
       (setf last-char #\Newline)
  
positive.code:           (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)))
          (let ((newline-count (count #\Newline string :start start :end end)))
            (if (= newline-count 0)
                (progn
  
negative.code:         (write-char #\Space s)))
      t)
  
    (:method elastic-newline (s)
      (setf elastic-newline t)))
  
  
  (defmacro with-block ((&key (stream '*html*)) &body body)
  