anchor.diff:     ((stringp string)
       (if (null end)
   	(setq end (length string)))
  -    (loop for i from start to end
  +    (loop for i from start below end
   	  for char = (aref string i)
   	  sum (or (stream-character-width stream char :text-style text-style)
   		  0) into line-width
  
positive.code: (defmethod stream-line-height ((stream extended-output-stream) &key (text-style nil))
    (line-height (port stream) (or text-style (medium-text-style (sheet-medium stream)))))
  
  (defmacro with-room-for-graphics ((&optional (stream t)
  				   &key (move-cursor t) height record-type)
  				  &body body)
  
negative.code: 	  (medium (sheet-medium stream))
  	  (port (port stream))
  	  (text-style (medium-text-style medium))
  	  (new-baseline (text-style-ascent text-style port))
  	  (new-height (text-style-height text-style port))
  	  (margin (stream-text-margin stream))
  	  (view-height (port-mirror-height port stream)))
       (if visible
  