anchor.diff:     (end-x)
      (end-y)
      (wrapped :initform nil
  -	    :accessor text-record-wrapped)))
  +	    :accessor text-record-wrapped)
  +   ))
   
   (defun text-displayed-output-record-p (x)
     (typep x 'text-displayed-output-record))
  
positive.code: (defmethod add-string-output-to-text-record ((text-record text-displayed-output-record)
  					     string start end text-style width height
  					     new-baseline)
    (setq string (subseq string start end))
    (with-slots (strings baseline max-height end-x) text-record
      (setq baseline (max baseline new-baseline)
  	  strings (nconc strings (list (list end-x text-style (make-array (length string) :initial-contents string :element-type 'character :adjustable t :fill-pointer t))))
  	  end-x (+ end-x width)
  	  max-height (max max-height height)
  	  )))
  
  (defmethod replay-output-record ((record text-displayed-output-record) stream
  				 &optional region x-offset y-offset)
    (declare (ignore x-offset y-offset))
    (with-slots (strings baseline max-height start-x start-y wrapped) record
      (let ((old-medium (sheet-medium stream))
  	  (new-medium (make-medium (port stream) stream)))
        (unwind-protect
  	  (progn
  	    (setf (sheet-medium stream) new-medium)
  	    (setf (medium-sheet new-medium) stream)
  	    (loop for y = (+ start-y baseline)
  		  for (x text-style string) in strings
  		  do (setf (medium-text-style new-medium) text-style)
  		     (draw-text* (sheet-medium stream) string x y
  				 :text-style text-style :clipping-region region))
  	    (if wrapped
  		(draw-rectangle* (sheet-medium stream)
  				 (+ wrapped 0) start-y (+ wrapped 4) (+ start-y max-height)
  
negative.code:    (drawing-p :initform t :accessor stream-drawing-p)
     (output-history :initform (make-instance 'standard-tree-output-history)
                     :reader stream-output-history)
     (current-output-record :accessor stream-current-output-record)
     (current-text-output-record :initform nil :accessor stream-current-text-output-record)
     (local-record-p :initform t
                     :documentation "This flag is used for dealing with streams outputting strings char-by-char.")))
  
  (defun output-recording-stream-p (x)
    (typep x 'output-recording-stream))
  