Define variables for new policies in the package they are being defined in

`(define-policy ...)' now implicitly calls a `(defvar ...)' and `(setf ...)' in order to make the object instance directly accessible by its name in the package it was defined in (besides pushing it onto the global *policies* list to refer to it by its name via `(with-named-policy ...)').