From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Wed, 6 Oct 2010 12:48:17 +0000 (+0000)
Subject: 1.0.43.27: DESCRIBE optimization policy qualities for symbols
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=02bc8a4818de4c5ae1669c159688b34e89a17537;p=sbcl.git

1.0.43.27: DESCRIBE optimization policy qualities for symbols

 They should be in the manual too, but this is a start.
---

diff --git a/NEWS b/NEWS
index 7890257..fcd38f0 100644
--- a/NEWS
+++ b/NEWS
@@ -6,6 +6,8 @@ changes relative to sbcl-1.0.43:
     resides on.
   * enhancement: default dynamic-space size can be configured at build-time
     without touching source, using the --dynamic-space-size argument to make.sh.
+  * enhancement: DESCRIBE recognizes symbols naming optimization policy
+    qualities.
   * bug fix: compiler failed to derive the result-type of MAKE-ARRAY as
     (AND VECTOR (NOT SIMPLE-ARRAY)) when appropriate. (lp#309130)
   * bug fix: (THE (VALUES ...)) in LOAD-TIME-VALUE caused a compiler-error.
@@ -31,6 +33,7 @@ changes relative to sbcl-1.0.43:
     an error for eg. STRUCTURE. (lp#458015)
   * bug fix: LOOP WITH NIL = ... signalled an unused variable style-warning.
     (lp#613871, thanks to Roman Marynchak)
+  * bug fix: more reliable &REST list type derivation, a
 
 changes in sbcl-1.0.43 relative to sbcl-1.0.42:
   * incompatible change: FD-STREAMS no longer participate in the serve-event
diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 4b47de6..d9c6039 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -308,6 +308,17 @@
             (format stream "~@:_Expansion: ~S" (funcall fun (list symbol))))))
       (terpri stream)))
 
+  (when (or (member symbol sb-c::*policy-qualities*)
+            (assoc symbol sb-c::*policy-dependent-qualities*))
+    (pprint-logical-block (stream nil)
+      (pprint-newline :mandatory stream)
+      (pprint-indent :block 2 stream)
+      (format stream "~A names a~:[ dependent~;n~] optimization policy quality:"
+              symbol
+              (member symbol sb-c::*policy-qualities*))
+      (describe-documentation symbol 'optimize stream t))
+    (terpri stream))
+
   ;; Print out properties.
   (let ((plist (symbol-plist symbol)))
     (when plist
diff --git a/version.lisp-expr b/version.lisp-expr
index dd65459..c5b4711 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.43.26"
+"1.0.43.27"