1 ;;;; DESCRIBE-COMPILER-POLICY
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
12 (in-package "SB-C") ;(SB-C, not SB!C, since we're built in warm load.)
14 (defun describe-compiler-policy (&optional spec
)
16 "Print all global optimization settings, augmented by SPEC."
17 (let ((policy (process-optimize-decl (cons 'optimize spec
) *policy
*)))
19 (format t
" Basic qualities:~%")
20 (dovector (quality **policy-primary-qualities
**)
21 (format t
"~S = ~D~%" quality
(policy-quality policy quality
)))
22 (format t
" Dependent qualities:~%")
23 (loop for info across
**policy-dependent-qualities
**
24 for quality
= (policy-dependent-quality-name info
)
25 for values-documentation
= (policy-dependent-quality-values-documentation info
)
26 for explicit-value
= (policy-quality policy quality
)
27 do
(if (= explicit-value
1)
28 (let* ((getter (policy-dependent-quality-getter info
))
29 (value (funcall getter policy
))
30 (documentation (elt values-documentation value
)))
31 (format t
"~S = ~D -> ~D (~A)~%"
32 quality explicit-value value documentation
))
33 (let ((documentation (elt values-documentation explicit-value
)))
34 (format t
"~S = ~D (~A)~%"
35 quality explicit-value documentation
)))))