anchor.diff:         (setf (gethash ,(string name) *command-funcs*)
                (lambda (,msg-sym ,direct-sym ,tmp-args)
                  (declare (ignorable ,msg-sym ,direct-sym))
  -               (destructuring-bind ,args-sym ,tmp-args ,@body))))))
  +               (handler-case
  +                   (destructuring-bind ,args-sym ,tmp-args ,@body)
  +                 (error ()
  +                   nil)))))))
   
   (defun random-elt (sequence)
     (elt sequence (random (length sequence))))
  
positive.code:                (declare (ignorable ,msg-sym ,direct-sym))
                 (cond
                   ((admin-user-p (source ,msg-sym))
                    (destructuring-bind ,args-sym ,tmp-args ,@body))
                   ((in-serious-channel-p ,msg-sym)
                    (reply-to ,msg-sym "Access denied."))
                   (t
  
negative.code:                                                     "You are not authorized for pleasure here."
                                                      "ALERT: non-productive activity attempt detected."
                                                      "Cease your entertainment attempts immediately.")))
                     (handler-case
                         (destructuring-bind ,args-sym ,tmp-args ,@body)
                       (error ()
                         nil))))))))
  
  (defmacro define-admin-command (name args &body body)
    (let ((tmp-args (gensym "TMP-ARGS"))
  