anchor.diff:  (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)))))
   
  +(defmethod stream-line-column ((stream extended-output-stream))
  +  (multiple-value-bind (x y) (stream-cursor-position stream)
  +    (declare (ignore y))
  +    (floor x (stream-string-width stream " "))))
  +
  +(defmethod stream-start-line-p ((stream extended-output-stream))
  +  (multiple-value-bind (x y) (stream-cursor-position stream)
  +    (zerop x)))
  +
   (defmacro with-room-for-graphics ((&optional (stream t)
   				   &key (move-cursor t) height record-type)
   				  &body body)
  
positive.code: 	  (medium (sheet-medium stream))
  	  (port (port stream))
  	  (text-style (medium-text-style medium))
  	  (new-baseline (text-style-ascent port text-style))
  	  (new-height (text-style-height port text-style))
  	  (margin (stream-text-margin stream))
  	  (view-height (port-mirror-height port stream)))
       (if visible
  
negative.code: ;;; Boston, MA  02111-1307  USA.
  
  (in-package :CLIM-INTERNALS)
  
  ;;; for gray streams
  #+cmu(progn (shadow 'collect) (use-package :ext))
  
  ;;; Note: in the methods defined on output streams, I often use
  ;;;	  the sheet's medium as the argument to the draw-* routines.
  