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: 	  (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.
  