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: (defmacro define-command (name (&rest args) (&key authorization documentation (eventvar 'event) module-name (modulevar 'module) pattern (priority :DEFAULT)) &body body)
    (unless pattern
      (setf pattern (if (listp name)
                        (format NIL "^~{~a~^ ~}(.*)" name)
                        (format NIL "^~a(.*)" name))))
    (unless module-name
      (setf module-name (get-current-module-name)))
    (let ((funcsym (gensym "FUNCTION")))
  
negative.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 #'> :key #'priority))
      (v:trace :command "Rebuilding priority array.")
      (setf *cmd-priority-array* array)))
  
  