anchor.diff:                          (source message)
                           cmd))
                 (t
  -                (handle-command cmd-module (intern (string-upcase cmd) (find-package "ORCA")) message args)))))
  +                (handle-command cmd-module cmd-sym message args)))))
           ;; CMD-MODULE is NIL if the command was not found
           cmd-module))))
   
  
positive.code:                               :test #'string-equal))
                    (or (not (member :modules patterns))
                        (member (name-of module)
                                (getf patterns :modules))))
           (return-from access-denied
             (if (eql consequence 'allow)
                 nil
  
negative.code:                                             :test #'string=))
                                    *orca-modules*)))
          (when cmd-module
            (let* ((cmd-sym (intern (string-upcase cmd) (find-package "ORCA")))
                   (denied (access-denied cmd-module message cmd-sym)))
              (cond
                (denied
                  (funcall denied message)
  