anchor.diff:  (def-stream-method (setf stream-end-of-page-action)
       (action (stream standard-encapsulating-stream)))
   
  -(def-stream-method medium-buffering-output-p 
  +(def-stream-method medium-buffering-output-p
       ((stream standard-encapsulating-stream)))
   
   (def-stream-method (setf medium-buffering-output-p)
  
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 medium-default-text-style)
      (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method text-size ((stream standard-encapsulating-stream) string
                                &key text-style start end))
  
  (def-stream-method text-style-ascent (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method text-style-descent (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method text-style-height (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method text-style-width (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method text-style-fixed-width-p (text-style (stream standard-encapsulating-stream)))
  
  (def-stream-method sheet-medium ((stream standard-encapsulating-stream)))
  
  (def-stream-method queue-repaint ((stream standard-encapsulating-stream)
  