anchor.diff:      (loop for handler being the hash-values of *cmd-map*
             for i from 0
             do (setf (aref array i) handler))
  -    (setf array (sort array #'>))
  +    (setf array (sort array #'> :key #'priority))
       (v:trace :command "Rebuilding priority array.")
       (setf *cmd-priority-array* array)))
   
  
positive.code:                      (v:trace :command "Event ~a matched ~a." event handler)
                       (let ((args (split-sequence #\Space (string-trim " " (aref groups (1- (length groups)))))))
                         (with-repeating-restart (recheck-command "Try checking the arguments again.")
                           (unless (arguments-match-p (cdr (arguments handler)) args)
                             (error 'invalid-arguments :argslist (cdr (arguments handler)) :command (identifier handler)))
                           (with-repeating-restart (retry-command "Retry dispatching to ~a")
                             (v:debug :command "Dispatching ~a to ~a." event handler)
                             (setf (cancelled event) T) ; Cancel by default
                             (apply (handler-function handler) event args)
  
negative.code: 
  (defmethod print-object ((handler command-handler) stream)
    (print-unreadable-object (handler stream :type T)
      (format stream "~s" (identifier handler)))
    handler)
  
  (defun generate-command-priority-cache ()
  