anchor.diff:  
   (let ((keyword-drawing-options (make-drawing-options :face (make-face :ink +orchid+)))
         (macro-drawing-options (make-drawing-options :face (make-face :ink +purple+)))
  -      (bound-drawing-options (make-drawing-options :face (make-face :ink +darkgoldenrod+))))
  +      (bound-drawing-options (make-drawing-options :face (make-face :ink +darkgoldenrod+)))
  +      (highlighted-parenthesis-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil)))))
     (make-syntax-highlighting-rules emacs-style-highlighting
       (error-lexeme (:face :ink +red+))
       (string-form (:face :ink +rosy-brown+
  
positive.code:                                                macro-drawing-options)
                                                ((symbol-form-is-boundp syntax form)
                                                 bound-drawing-options)
                                                (t +default-drawing-options+)))))))
  
  (let ((macro-drawing-options (make-drawing-options :face (make-face :style (make-text-style nil :bold nil)))))
    (make-syntax-highlighting-rules retro-highlighting
  
negative.code: (defclass error-lexeme (lisp-lexeme) ())
  (defclass literal-object-lexeme (lisp-lexeme literal-object-mixin) ())
  (defclass literal-object-error-lexeme (lisp-lexeme literal-object-mixin) ())
  (defclass parenthesis-lexeme (lisp-lexeme) ())
  (defclass left-parenthesis-lexeme (parenthesis-lexeme) ())
  (defclass simple-vector-start-lexeme (lisp-lexeme) ())
  (defclass right-parenthesis-lexeme (parenthesis-lexeme) ())
  (defclass quote-lexeme (lisp-lexeme) ())
  (defclass backquote-lexeme (lisp-lexeme) ())
  (defclass comma-lexeme (lisp-lexeme) ())
  