anchor.diff:       &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))
  +  (apply #'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))
   
   						    
   
  
positive.code: (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))
    
  #+nil
  (def-stream-method invoke-with-new-output-record
  
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
  