X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=cfee036c436a618c40e5a499fe89914ba8e7df2a;hb=6caf3ed5713773cb423f46bf40a29f2438c97c78;hp=d9c6039791e7e83dcf764cb4c8aaed2eaaa43ca2;hpb=02bc8a4818de4c5ae1669c159688b34e89a17537;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index d9c6039..cfee036 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -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)))