X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=ceb1a2bc354828193e3e94e4bed6f206b6f24873;hb=d25e3478acccec70402ff32554669a982be8e281;hp=3554d018b7eeb8660fad49be171b9af21856f518;hpb=7c406887c08477181e869b1b98142d99b52990ac;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 3554d01..ceb1a2b 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -465,8 +465,6 @@
   kind
   mess-up
   (info :test info))
-(defmacro cleanup-nlx-info (cleanup)
-  `(cleanup-info ,cleanup))
 
 ;;; A PHYSENV represents the result of physical environment analysis.
 ;;;
@@ -691,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