anchor.diff:                :do (let ((designator (cadr plist))
                           (plist1 (cddr plist)))
                       (insert-string point designator
  -                                   :attribute 'lisp-headline-attribute)
  +                                   :attribute 'apropos-headline-attribute)
                       (loop :for (k v) :on plist1 :by #'cddr
                             :do (insert-string point (format nil "~%  ~A: ~A" k v)))
                       (insert-character point #\newline 2)))))))
  
positive.code:     (make-overlay point
                    (or (form-offset (copy-point point :temporary) 1)
                        (buffer-end-point buffer))
                    'lisp-note-attribute)))
  
  (defvar *note-overlays* nil)
  
  
negative.code: (defvar *last-compilation-result* nil)
  (defvar *indent-table* (make-hash-table :test 'equal))
  
  (define-attribute compiler-note-attribute
    (t :foreground "red" :underline-p t))
  
  (define-attribute apropos-headline-attribute
    (t :bold-p t))
  
  (define-major-mode lisp-mode language-mode
  