anchor.diff:                 (getf (drawing-options record) :highlight-outline)))
         (highlight-output-record record stream state)
         (call-next-method)))
  -
   
   (defmethod highlight-output-record
       ((record highlighting-bordered-output-record) stream state)
  
positive.code: 
  ;;;; Highlighting of bordered output records
  (defclass highlighting-bordered-output-record (bordered-output-record)
    ())
  
  (defmethod highlight-output-record-tree
      ((record highlighting-bordered-output-record)
  
negative.code:                                             record)))))
              (ecase state
                (:highlight
                 (with-keywords-removed (drawing-options (:background :outline-ink))
                   (redraw
                    (list* :background
                           (or (and (eql t highlight-background)
  