anchor.diff:              (cond
                 (denied
                   (funcall denied message)
  -                (format t "Denied access to ~a trying to run command ~a"
  +                (format t "Denied access to ~a trying to run command ~a~%"
                           (source message)
                           cmd))
                 (t
  
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: 
  (defun dispatch-module-event (message)
    (with-simple-restart (continue "Continue from signal in message hook")
      (dolist (module *orca-modules*)
        (unless (access-denied module message)
          (examine-message module (type-of message) message)))
  