anchor.diff:  (def-stream-method stream-increment-cursor-position
       ((stream standard-encapsulating-stream) dx dy))
   
  -(def-stream-method stream-character-width 
  -    ((stream standard-encapsulating-stream)
  -     string 
  +(def-stream-method stream-character-width
  +    ((stream standard-encapsulating-stream)
  +     character
  +     &key text-style))
  +
  +(def-stream-method stream-string-width
  +    ((stream standard-encapsulating-stream)
  +     string
        &key start end text-style))
   
   (def-stream-method stream-text-margin ((stream standard-encapsulating-stream)))
   
  -(def-stream-method (setf stream-text-margin) 
  +(def-stream-method (setf stream-text-margin)
       (margin (stream standard-encapsulating-stream)))
   
   (def-stream-method stream-line-height ((stream standard-encapsulating-stream)
   				       &key text-style))
   
  -(def-stream-method stream-vertical-spacing 
  +(def-stream-method stream-vertical-spacing
       ((stream standard-encapsulating-stream)))
   
   (def-stream-method stream-baseline ((stream standard-encapsulating-stream)))
  
positive.code: (def-stream-method (setf medium-default-text-style)
      (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method sheet-medium ((stream standard-encapsulating-stream)))
  
  (def-stream-method queue-repaint ((stream standard-encapsulating-stream)
  
negative.code: (def-stream-method (setf stream-input-buffer)
      (buffer (stream standard-encapsulating-stream)))
  
  (def-stream-method stream-pointer-position
      ((stream standard-encapsulating-stream) &key pointer))
  
  (def-stream-method (setf stream-pointer-position)
      (x y (stream standard-encapsulating-stream) &key pointer))
  
  (def-stream-method stream-set-input-focus
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method stream-read-gesture
      ((stream standard-encapsulating-stream)
       &key timeout peek-p input-wait-test input-wait-handler
       pointer-button-press-handler))
  
  (def-stream-method stream-input-wait ((stream standard-encapsulating-stream)
  				      &key timeout input-wait-test))
  
  (def-stream-method stream-unread-gesture
      ((stream standard-encapsulating-stream) gesture))
  
  ;;; Output recording
  
  (def-stream-method stream-recording-p
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method (setf stream-recording-p)
      (recording-p (stream standard-encapsulating-stream)))
  
  (def-stream-method stream-drawing-p
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method (setf stream-drawing-p)
      (drawing-p (stream standard-encapsulating-stream)))
  
  (def-stream-method stream-output-history
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method stream-current-output-record
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method (setf stream-current-output-record)
      (record (stream standard-encapsulating-stream)))
  
  (def-stream-method stream-add-output-record
      ((stream standard-encapsulating-stream) record))
  
  (def-stream-method stream-replay
      ((stream standard-encapsulating-stream) &optional region))
  
  (def-stream-method erase-output-record
      (record (stream standard-encapsulating-stream) &optional errorp))
  
  (def-stream-method stream-text-output-record
      ((stream standard-encapsulating-stream) text-style))
  
  (def-stream-method stream-close-text-output-record
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method stream-add-character-output
    ((stream standard-encapsulating-stream)
     character text-style width height baseline))
  
  (def-stream-method stream-add-string-output
    ((stream standard-encapsulating-stream)
     string start end text-style width height baseline))
  
  (def-stream-method invoke-with-output-recording-options
      ((stream standard-encapsulating-stream) continuation record draw))
  
  (def-stream-method invoke-with-new-output-record
      ((stream standard-encapsulating-stream) continuation record-type
       &rest initargs
       &key
       &allow-other-keys))
  
  (def-stream-method invoke-with-output-to-output-record
      ((stream standard-encapsulating-stream) continuation record-type
       &rest initargs
       &key
       &allow-other-keys))
  
  
  ;;; Presentation type generics
  
  