anchor.diff:  
   (defun save-last-active-modes (auto-mode url)
     (when (can-save-last-active-modes auto-mode url)
  -    ;; `last-active-modes' must be a list separate from the mode list, otherwise
  -    ;; when modes get modified, last-active-modes would also be altered.
  -    (setf (last-active-modes auto-mode) (copy-list (modes (buffer auto-mode)))
  +    (setf (last-active-modes auto-mode) (mapcar #'mode-invocation (modes (buffer auto-mode)))
             (last-active-modes-url auto-mode) url)))
   
   (defun reapply-last-active-modes (auto-mode)
     (disable-modes
  -   (mapcar #'maybe-mode-name
  -           (set-difference (modes (buffer auto-mode))
  +   (mapcar #'name
  +           (set-difference (mapcar #'mode-invocation (modes (buffer auto-mode)))
                              (last-active-modes auto-mode)
  -                           :test #'mode-equal))
  +                           :test #'equals))
      (buffer auto-mode))
     (enable-modes
  -   (mapcar #'maybe-mode-name
  +   (mapcar #'name
              (set-difference (last-active-modes auto-mode)
  -                           (modes (buffer auto-mode))
  -                           :test #'mode-equal))
  +                           (mapcar #'mode-invocation (modes (buffer auto-mode)))
  +                           :test #'equals))
      (buffer auto-mode)))
   
   (defun new-page-request-p (request-data)
  
positive.code:         (let ((rules (read stream)))
            (mapcar #'(lambda (rule)
                        (let ((rule (append '(:test) rule)))
                          (when (stringp (getf rule :test))
                            (setf (getf rule :test) `(match-url ,(getf rule :test))))
                          (apply #'make-instance 'auto-mode-rule rule)))
  
negative.code:       (setf url (url url)))
      (add-modes-to-auto-mode-rules
       (url-infer-match url)
       :include (set-difference (mapcar #'mode-invocation(modes (current-buffer)))
                                (mapcar #'mode-invocation (default-modes (current-buffer)))
                                :test #'equals)
       :exclude (set-difference (mapcar #'mode-invocation (default-modes (current-buffer)))
                                (mapcar #'mode-invocation (modes (current-buffer)))
                                :test #'equals))))
  
  (define-command save-exact-modes-for-future-visits ()
    "Store the exact list of enabled modes to auto-mode rules for all the future visits of this
  