anchor.diff:  (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 left-parenthesis-lexeme (lisp-lexeme) ())
  +(defclass parenthesis-lexeme (lisp-lexeme) ())
  +(defclass left-parenthesis-lexeme (parenthesis-lexeme) ())
   (defclass simple-vector-start-lexeme (lisp-lexeme) ())
  -(defclass right-parenthesis-lexeme (lisp-lexeme) ())
  +(defclass right-parenthesis-lexeme (parenthesis-lexeme) ())
   (defclass quote-lexeme (lisp-lexeme) ())
   (defclass backquote-lexeme (lisp-lexeme) ())
   (defclass comma-lexeme (lisp-lexeme) ())
  
positive.code: 
  (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+))))
    (make-syntax-highlighting-rules emacs-style-highlighting
      (error-lexeme (:face :ink +red+))
      (string-form (:face :ink +rosy-brown+
  
negative.code:                                                macro-drawing-options)
                                                ((symbol-form-is-boundp syntax form)
                                                 bound-drawing-options)
                                                (t +default-drawing-options+)))))
      (parenthesis-lexeme (:function #'(lambda (syntax form)
                                         (declare (ignore syntax))
                                         ;; XXX: Using (point) here may be hacky.
                                         (if (and (or (mark= (point) (start-offset (parent form)))
                                                      (mark= (point) (end-offset (parent form))))
                                                  (form-complete-p (parent form)))
                                             highlighted-parenthesis-options
                                             +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
  