X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=9896b0659da6e58a24077bc386f2dc90248c8266;hb=2216330b380c4a931ea7564e0b5a7d4bbec75851;hp=134a60879b2e927c0fbebef34d5ee05387be0d95;hpb=8f8966edb633dabfcde5d149c3e3a7fad26b7ff2;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 134a608..9896b06 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -962,7 +962,8 @@
   (call-lexenv nil :type (or lexenv null))
   ;; list of embedded lambdas
   (children nil :type list)
-  (parent nil :type (or clambda null)))
+  (parent nil :type (or clambda null))
+  (allow-instrumenting *allow-instrumenting* :type boolean))
 (defprinter (clambda :conc-name lambda- :identity t)
   %source-name
   %debug-name