anchor.diff:  
   (defun dispatch-module-event (message)
     (with-simple-restart (continue "Continue from signal in message hook")
  -    (format t "message: ~w ~w~%" (type-of message) (arguments message))
       (dolist (module *orca-modules*)
         (unless (access-denied module message)
           (examine-message module (type-of message) message)))
  
positive.code: (defun access-denied (module message)
    "Returns NIL if the message should be responded to.  Returns a
    function to be called if access was denied."
    (loop
       for rule in *access-control*
       as consequence = (first rule)
  
negative.code:             (cond
                (denied
                  (funcall denied message)
                  (format t "Denied access to ~a trying to run command ~a~%"
                          (source message)
                          cmd))
                (t
  