;;; names of recognized optimization policy qualities
(defvar *policy-qualities*) ; (initialized at cold init)
;;; names of recognized optimization policy qualities
(defvar *policy-qualities*) ; (initialized at cold init)
;;; FIXME: Doing this is slightly flaky (since we can't do it right
;;; without all the headaches of true code walking), and it shouldn't
;;; be necessary with modern Python anyway, as long as POLICY-QUALITY
;;; FIXME: Doing this is slightly flaky (since we can't do it right
;;; without all the headaches of true code walking), and it shouldn't
;;; be necessary with modern Python anyway, as long as POLICY-QUALITY
;;; optimized away if unused. So this should probably go away.
(defun policy-qualities-used-by (expr)
(let ((result nil))
;;; optimized away if unused. So this should probably go away.
(defun policy-qualities-used-by (expr)
(let ((result nil))