anchor.diff:  	  (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))
  +	  (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
  
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: ;;; 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.
  