X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=ceb1a2bc354828193e3e94e4bed6f206b6f24873;hb=9837343101c3da7b3a8f94609ec116ec5025436a;hp=cb167fd89638230efc577523361116ded75826b2;hpb=757091b10a73a7f6e2bd673bcf990ac93f23f77c;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index cb167fd..ceb1a2b 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -689,7 +689,7 @@
 (def!struct (global-var (:include basic-var))
   ;; kind of variable described
   (kind (missing-arg)
-        :type (member :special :global-function :global)))
+        :type (member :special :global-function :global :unknown)))
 (defprinter (global-var :identity t)
   %source-name
   #!+sb-show id