anchor.diff:  
   ;;; Extended Input Streams
   
  -(def-stream-method extended-input-stream-p 
  +(def-stream-method extended-input-stream-p
       ((stream standard-encapsulating-stream)))
   
   (def-stream-method stream-input-buffer
  
positive.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)
  
negative.code: (def-stream-method stream-increment-cursor-position
      ((stream standard-encapsulating-stream) dx dy))
  
  (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)
      (margin (stream standard-encapsulating-stream)))
  
  (def-stream-method stream-line-height ((stream standard-encapsulating-stream)
  				       &key text-style))
  
  (def-stream-method stream-vertical-spacing
      ((stream standard-encapsulating-stream)))
  
  (def-stream-method stream-baseline ((stream standard-encapsulating-stream)))
  