anchor.diff:         (funcall continuation stream))
      record
      draw))
  -  
  +
   (defmethod invoke-with-new-output-record
       ((stream standard-encapsulating-stream) continuation record-type
        &rest initargs)
  
positive.code:              (funcall continuation medium))
           drawing-options))
  
  (defmethod invoke-with-sheet-medium-bound (continuation (medium null) (stream standard-encapsulating-stream))
    (invoke-with-sheet-medium-bound continuation medium  (encapsulating-stream-stream stream)))
  
  (defmethod do-graphics-with-options ((sheet encapsulating-stream) func &rest options)
    (apply #'do-graphics-with-options (encapsulating-stream-stream sheet) func options))
  
  (defmethod invoke-with-room-for-graphics (cont (stream encapsulating-stream)
                                            &rest options)
    (apply #'invoke-with-room-for-graphics cont (encapsulating-stream-stream stream) options))
  
  ;;; Extended Input Streams
  
  
negative.code: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :clim-internals)
  