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=))
                                    *orca-modules*)))
          (when cmd-module
            (let ((denied (access-denied cmd-module message)))
              (cond
                (denied
                  (funcall denied message)
  
negative.code: (defun initialize-access (config)
    (setf *access-control* (rest (assoc 'access config))))
  
  (defun access-denied (module message &optional command)
    "Returns NIL if the message should be responded to.  Returns a
    function to be called if access was denied."
  
  