anchor.diff:    ((stream :reader border-stream :initarg :stream)
      (shape :reader shape :initarg :shape)
      (record :reader inner-record :initarg :inner-record)
  -   (drawing-options :reader drawing-options
  +   (drawing-options :accessor drawing-options
                       :initarg :drawing-options
                       :initform nil)
      under over))
  
positive.code:                                             record)))))
              (ecase state
                (:highlight
                 (with-keywords-removed
                     (drawing-options (:background :outline-ink))
                   (redraw
                    (list* :background
                           (or (and (eql t highlight-background)
  
negative.code:                                :shape shape
                                 :inner-record inner-record
                                 :drawing-options drawing-options)))
      (%prepare-bordered-output-record border)))
  
  ;;; This should have been exported by the CLIM package, otherwise you
  ;;; can't apply a computed list of drawing options.
  