X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=8253e8e74222bfc432c70d1281305fe1b0b38880;hb=95591ed483dbb8c0846c129953acac1554f28809;hp=cb167fd89638230efc577523361116ded75826b2;hpb=757091b10a73a7f6e2bd673bcf990ac93f23f77c;p=sbcl.git diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp index cb167fd..8253e8e 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 @@ -861,6 +861,8 @@ ;; the original function or macro lambda list, or :UNSPECIFIED if ;; this is a compiler created function (arg-documentation nil :type (or list (member :unspecified))) + ;; the documentation string for the lambda + (documentation nil :type (or null string)) ;; Node, allocating closure for this lambda. May be NIL when we are ;; sure that no closure is needed. (allocator nil :type (or null combination)) @@ -869,8 +871,9 @@ ;; xref information for this functional (only used for functions with an ;; XEP) (xref () :type list) - ;; True if this functional was created from an inline expansion - (inline-expanded nil :type boolean)) + ;; True if this functional was created from an inline expansion. This + ;; is either T, or the GLOBAL-VAR for which it is an expansion. + (inline-expanded nil)) (defprinter (functional :identity t) %source-name %debug-name