This is intended to be used interactively, to facilitate recompiling large
bodies of code with eg. a known minimum safety.
This is intended to be used interactively, to facilitate recompiling large
bodies of code with eg. a known minimum safety.
+;;; Is it deprecated?
+(defun policy-quality-deprecation-warning (quality)
+ (when (member quality '(stack-allocate-dynamic-extent stack-allocate-vector
+ stack-allocate-value-cells))
+ (deprecation-warning :late "1.0.19.7" quality '*stack-allocate-dynamic-extent*
+ :runtime-error nil)
+ t))
+
;;; *POLICY* holds the current global compiler policy information, as
;;; an alist mapping from optimization quality name to quality value.
;;; Inside the scope of declarations, new entries are added at the
;;; *POLICY* holds the current global compiler policy information, as
;;; an alist mapping from optimization quality name to quality value.
;;; Inside the scope of declarations, new entries are added at the
;;; This is to be called early in cold init to set things up, and may
;;; also be called again later in cold init in order to reset default
;;; optimization policy back to default values after toplevel PROCLAIM
;;; This is to be called early in cold init to set things up, and may
;;; also be called again later in cold init in order to reset default
;;; optimization policy back to default values after toplevel PROCLAIM
- (mapcar (lambda (name)
- ;; CMU CL didn't use 1 as the default for
- ;; everything, but since ANSI says 1 is the ordinary
- ;; value, we do.
- (cons name 1))
- *policy-qualities*))
+ (sort-policy (mapcar (lambda (name)
+ ;; CMU CL didn't use 1 as the default for
+ ;; everything, but since ANSI says 1 is the ordinary
+ ;; value, we do.
+ (cons name 1))
+ *policy-qualities*)))
(setf *policy-restrictions* nil)
;; not actually POLICY, but very similar
(setf *handled-conditions* nil
(setf *policy-restrictions* nil)
;; not actually POLICY, but very similar
(setf *handled-conditions* nil
`(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((acons (assoc ',name *policy-dependent-qualities*))
(item (make-policy-dependent-quality
:name ',name
:expression ',expression
:getter (lambda (policy) (policy policy ,expression))
`(eval-when (:compile-toplevel :load-toplevel :execute)
(let ((acons (assoc ',name *policy-dependent-qualities*))
(item (make-policy-dependent-quality
:name ',name
:expression ',expression
:getter (lambda (policy) (policy policy ,expression))
(if acons
(setf (cdr acons) item)
(setf *policy-dependent-qualities*
(nconc *policy-dependent-qualities* (list `(,',name . ,item))))))
(if acons
(setf (cdr acons) item)
(setf *policy-dependent-qualities*
(nconc *policy-dependent-qualities* (list `(,',name . ,item))))))