0.8.3.39:

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

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 429c7ae..789d7e1 100644 (file)
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -500,7 +500,7 @@
        ((continuation-block cont)
         (block-home-lambda-or-null (continuation-block cont)))
        (t
-        (bug "confused about home lambda for ~S"))))
+        (bug "confused about home lambda for ~S" cont))))
 
 ;;; Return the LAMBDA that is CONT's home.
 (declaim (ftype (sfunction (continuation) clambda)
@@ -544,7 +544,7 @@
 ;;; beginning of the current value, rather than replacing it entirely.
 (defun make-lexenv (&key (default *lexenv*)
                         funs vars blocks tags
-                         type-restrictions weakend-type-restrictions
+                         type-restrictions
                         (lambda (lexenv-lambda default))
                         (cleanup (lexenv-cleanup default))
                         (policy (lexenv-policy default)))
@@ -559,7 +559,6 @@
      (frob blocks lexenv-blocks)
      (frob tags lexenv-tags)
      (frob type-restrictions lexenv-type-restrictions)
-     (frob weakend-type-restrictions lexenv-weakend-type-restrictions)
      lambda cleanup policy)))
 
 ;;; Makes a LEXENV, suitable for using in a MACROLET introduced
@@ -587,7 +586,6 @@
      nil
      nil
      (lexenv-type-restrictions lexenv) ; XXX
-     (lexenv-weakend-type-restrictions lexenv)
      nil
      nil
      (lexenv-policy lexenv))))