anchor.diff:  	   ,body)))))
   
   ;;; The basic input and output stream protocols, as specified by the Gray
  -;;; stream proposal in Chapter Common Lisp Streams .  
  +;;; stream proposal in Chapter Common Lisp Streams .
   
   ;;; Not yet, apparently
   #+nil
   (def-stream-method streamp ((stream standard-encapsulating-stream)))
   
  -(def-stream-method input-stream-p 
  -    ((stream standard-encapsulating-stream)))
  -
  -(def-stream-method output-stream-p 
  +(def-stream-method input-stream-p
  +    ((stream standard-encapsulating-stream)))
  +
  +(def-stream-method output-stream-p
       ((stream standard-encapsulating-stream)))
   
   (def-stream-method stream-element-type
  
positive.code:        (funcall continuation stream))
     record
     draw))
    
  (defmethod invoke-with-new-output-record
      ((stream standard-encapsulating-stream) continuation record-type
       &rest initargs)
  
negative.code: 
  (def-stream-method sheet-medium ((stream standard-encapsulating-stream)))
  
  (def-stream-method invoke-with-sheet-medium-bound
      (continuation medium (stream standard-encapsulating-stream)))
  
  (def-stream-method queue-repaint ((stream standard-encapsulating-stream)
  				  repaint-event))
  
  