0.7.9.67:

[sbcl.git] / src / compiler / lexenv.lisp

diff --git a/src/compiler/lexenv.lisp b/src/compiler/lexenv.lisp
index 033a4fa..34f37ba 100644 (file)
--- a/src/compiler/lexenv.lisp
+++ b/src/compiler/lexenv.lisp
@@ -26,7 +26,9 @@
                                               '(debug . 1)
                                               '(inhibit-warnings . 1)))))
             (:constructor internal-make-lexenv
-                          (funs vars blocks tags type-restrictions
+                          (funs vars blocks tags
+                                 type-restrictions
+                                 weakend-type-restrictions
                                 lambda cleanup policy)))
   ;; an alist of (NAME . WHAT), where WHAT is either a FUNCTIONAL (a
   ;; local function), a DEFINED-FUN, representing an
@@ -56,6 +58,7 @@
   ;; THING is a continuation, this is used to track the innermost THE
   ;; type declaration.
   (type-restrictions nil :type list)
+  (weakend-type-restrictions nil :type list)
   ;; the lexically enclosing lambda, if any
   ;;
   ;; FIXME: This should be :TYPE (OR CLAMBDA NULL), but it was too hard