X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=14c344491a99d779aea3c2c7edbb3a86263ef948;hb=079ef9dad558ca07cb8178ef428bf738112174fa;hp=535af80c99d1179bf1d3270bf17a0a611c836b17;hpb=883b33b092472473b0dd559d64351b9436916af3;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 535af80..14c3444 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -569,6 +569,9 @@
   ;; has the original exit destination as its successor. Null only
   ;; temporarily.
   (target nil :type (or cblock null))
+  ;; for a lexical exit it determines whether tag existence check is
+  ;; needed
+  (safe-p nil :type boolean)
   ;; some kind of info used by the back end
   info)
 (defprinter (nlx-info :identity t)