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: 
  ;;; Extended Input Streams
  
  (def-stream-method extended-input-stream-p 
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method stream-input-buffer
  
negative.code: (def-stream-method (setf stream-end-of-page-action)
      (action (stream standard-encapsulating-stream)))
  
  (def-stream-method medium-buffering-output-p
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method (setf medium-buffering-output-p)
  