anchor.diff:     (fixed-position :reader output-record-fixed-position
   		   :initarg :fixed-position :initform nil)
      (displayer :reader output-record-displayer :initarg :displayer)
  -   (sub-record :accessor sub-record
  -	       :documentation "The actual contents of this record.  All output
  -record operations are forwarded to this record.")
      ;; Start and end cursor
      (start-graphics-state :accessor start-graphics-state
   			 :initarg :start-graphics-state
  
positive.code: 				  (setf (output-record-dirty r) :updating))
  			      record
  			      nil)
      (letf (((stream-current-output-record stream)
  	    (output-record-parent record)))
        (compute-new-output-records-1 record 
  				    stream
  				    (output-record-displayer record)))))
  
  (defun %invoke-updating (record stream displayer)
    (letf (((stream-current-output-record stream) record))
      (with-new-output-record (stream)
  
negative.code: 				   (parent-cache nil))
    (unless *enable-updating-output*
      (return-from invoke-updating-output (funcall continuation stream)))
    (finish-output stream)
    (let ((parent-cache (or parent-cache *current-updating-output* stream)))
      (when (eq unique-id *no-unique-id*)
        (setq unique-id (incf (id-counter parent-cache))))
  