X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdescribe.lisp;h=7da9cd7a0cdab08a8c21a23ed270789e0dca94f7;hb=fbae90af33b92c5411ddcb419485dcf2bca47ab7;hp=67e45b5474efe8da655a83e73e31f78ac2e01c4a;hpb=45043cae0617dd0f8071e97cd9ee2d6359a9f9e9;p=sbcl.git

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index 67e45b5..7da9cd7 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
@@ -312,7 +312,8 @@
                 (:special "special variable")
                 (:macro "symbol macro")
                 (:constant "constant")
-                (:global "undefined variable")
+                (:global "global variable")
+                (:unknown "undefined variable")
                 (:alien nil))))
     (pprint-logical-block (s nil)
       (cond
@@ -330,7 +331,7 @@
        ((boundp x)
         (format s "~&~@<It is a ~A; its ~_value is ~S.~:>"
                 wot (symbol-value x)))
-       ((not (eq kind :global))
+       ((not (eq kind :unknown))
         (format s "~&~@<It is a ~A; no current value.~:>" wot)))
 
       (when (eq (info :variable :where-from x) :declared)