anchor.diff:  
   (defmethod print-object ((handler command-handler) stream)
     (print-unreadable-object (handler stream :type T)
  -    (print (identifier handler) stream))
  +    (format stream "~s" (identifier handler)))
     handler)
   
   (defun generate-command-priority-cache ()
  
positive.code:     (loop for handler being the hash-values of *cmd-map*
            for i from 0
            do (setf (aref array i) handler))
      (setf array (sort array #'>))
      (v:trace :command "Rebuilding priority array.")
      (setf *cmd-priority-array* array)))
  
  
negative.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 (arguments handler) args)
                             (error 'invalid-arguments :argslist (arguments handler) :command (identifier handler)))
                           (with-repeating-restart (retry-command "Retry dispatching to ~a" handler)
                             (v:debug :command "Dispatching ~a to ~a." event handler)
                             (setf (cancelled event) T) ; Cancel by default
                             (apply (handler-function handler) event args)
  