anchor.diff:              (when errorp
                 (error "~S is not contained in ~S." record stream)))))))
   
  -(defun copy-textual-output-history (window stream &optional region record)
  -  ;; FIXME
  -  (declare (ignore window stream region record))
  -  (error "Not implemented."))
  -
   ;;; 16.4.3. Text Output Recording
   (defmethod stream-text-output-record
       ((stream standard-output-recording-stream) text-style)
  
positive.code: 					  (handle-repaint s region))
  				      sheet
  				      region))
  
negative.code: ;;;           Arnaud Rouanet (rouanet@emi.u-bordeaux.fr)
  ;;;           Lionel Salabartan (salabart@emi.u-bordeaux.fr)
  ;;;  (c) copyright 2001, 2002 by Alexey Dejneka (adejneka@comail.ru)
  ;;;  (c) copyright 2003 by Gilbert Baumann <unk6@rz.uni-karlsruhe.de>
  
  ;;; This library is free software; you can redistribute it and/or
  ;;; modify it under the terms of the GNU Library General Public
  