anchor.diff:  (defmethod invoke-with-output-recording-options
       ((stream standard-encapsulating-stream) continuation record draw)
     (invoke-with-output-recording-options
  -    (slot-value stream 'stream)
  -    #'(lambda (old-stream)
  -	(declare (ignore old-stream))
  -	(funcall continuation stream))
  -    record
  -    draw))
  +   (slot-value stream 'stream)
  +   #'(lambda (old-stream)
  +       (declare (ignore old-stream))
  +       (funcall continuation stream))
  +   record
  +   draw))
     
   #+nil
   (def-stream-method invoke-with-new-output-record
  
positive.code:      &rest initargs
       &key
       &allow-other-keys)
    (invoke-with-output-to-output-record
       (slot-value stream 'stream)
       #'(lambda (inner-stream record)
  	 (declare (ignore inner-stream))
  	 (funcall continuation stream record))
       record-type
       initargs))
  
  						    
  
  
negative.code: 			(apply #',name ,@required-params ,apply-list)))))
        `(defmethod ,name ,ll
  	 (let ((*original-stream* stream)
  	       (stream (slot-value stream 'stream)))	   
  	   ,body)))))
  
  ;;; The basic input and output stream protocols, as specified by the Gray
  