anchor.diff:    (without-local-recording stream
                              (call-next-method)))
   
  +#+nil
   (defmethod stream-write-string :around ((stream output-recording-stream) string
                                           &optional (start 0) end)
  -  
  +  ;; Problem: it is necessary to check for line wrapping. Now the
  +  ;; default method for STREAM-WRITE-STRING do char-by-char output,
  +  ;; therefore STREAM-WRITE-CHAR can do the right thing.
     (when (and (stream-recording-p stream)
                (slot-value stream 'local-record-p))
       (let* ((medium (sheet-medium stream))
  
positive.code: 
  
  ;;; graphics and text recording classes
  
  (eval-when (compile load eval)
    
  
negative.code:   nil)
  
  (defun replay (record stream &optional region)
    (stream-close-text-output-record stream)
    (when (stream-drawing-p stream)
      (let ((old-record-p (stream-recording-p stream)))
        (unwind-protect
  