anchor.diff:  				    ascent))))
   
     (when (stream-drawing-p stream)
  -    (without-local-recording stream
  +    (let ((*local-record-p* nil))
         (call-next-method))))
   
   (defmethod stream-finish-output :after ((stream standard-output-recording-stream))
  
positive.code:                    :reader stream-output-history)
     (current-output-record :accessor stream-current-output-record)
     (current-text-output-record :initform nil
                                 :accessor stream-current-text-output-record)
     (local-record-p :initform t
                     :documentation "This flag is used for dealing with streams outputting strings char-by-char."))
    (:documentation "This class is mixed into some other stream class to
  add output recording facilities. It is not instantiable."))
  
  
negative.code:                                     width height baseline))
  
  ;;; Text output catching methods
  (defvar *local-record-p* t
    "This flag is used for dealing with streams outputting strings char-by-char.")
  (defmethod stream-write-output :around
      ((stream standard-output-recording-stream)
       line
       string-width
       &optional (start 0) end)
  
    (when (and (stream-recording-p stream) *local-record-p*)
      (let* ((medium (sheet-medium stream))
             (text-style (medium-text-style medium))
  	   (height (text-style-height text-style medium))
  