[Sbcl-commits] CVS: sbcl/src/code describe.lisp,1.59,1.60

[Nikodemus S. <de...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv9297/src/code

Modified Files:
	describe.lisp 
Log Message:
1.0.43.28: DESCRIBE ALWAYS-BOUND declarations for symbols

 EOM


Index: describe.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/describe.lisp,v
retrieving revision 1.59
retrieving revision 1.60
diff -u -d -r1.59 -r1.60
--- describe.lisp	6 Oct 2010 12:48:18 -0000	1.59
+++ describe.lisp	6 Oct 2010 15:50:34 -0000	1.60
@@ -254,6 +254,8 @@
         (when (eq (info :variable :where-from symbol) :declared)
           (format stream "~@:_Declared type: ~S"
                   (type-specifier (info :variable :type symbol))))
+        (when (info :variable :always-bound symbol)
+          (format stream "~@:_Declared always-bound."))
         (cond
           ((eq kind :alien)
            (let ((info (info :variable :alien-info symbol)))