anchor.diff:  (deftest do-access-destroy/destroys-group ()
     (with-mock-players (alice)
       (setf (override-security-p alice) t)
  +    (setf (tempus::level-of alice) 51)
       (let ((group nil))
         (unwind-protect
              (progn
  
positive.code: 
  (deftest do-access-addcmd/cant-admin-group/emits-error ()
    (with-full-mock-players (alice)
      (function-trace-bind ((calls tempus::add-group-command))
          (tempus::interpret-command alice "access addcmd OLC giggle")
        (is (null calls))
  
negative.code: 
  (deftest do-access-admin-none/cant-admin-group/emits-error ()
    (with-full-mock-players (alice)
      (setf (tempus::level-of alice) 51)
      (let ((group (gethash "CoderAdmin" tempus::*access-groups-name*)))
        (unwind-protect
             (progn
  