X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1util.lisp;h=c98f2bfc5c4ea0946d163ae56b24f4114e5b8a5b;hb=91392754bf1d241cd6913c728268caf18eae1485;hp=6e1e798475f571c9111b158f8557e245801cf263;hpb=c831b2828176641e93a45d3fd643e9f58cd44a3f;p=sbcl.git

diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp
index 6e1e798..c98f2bf 100644
--- a/src/compiler/ir1util.lisp
+++ b/src/compiler/ir1util.lisp
@@ -387,7 +387,7 @@
 ;;; slot values. Values for the alist slots are NCONCed to the
 ;;; beginning of the current value, rather than replacing it entirely.
 (defun make-lexenv (&key (default *lexenv*)
-			 funs vars blocks tags type-restrictions options
+			 funs vars blocks tags type-restrictions
 			 (lambda (lexenv-lambda default))
 			 (cleanup (lexenv-cleanup default))
 			 (policy (lexenv-policy default)))
@@ -402,8 +402,7 @@
      (frob blocks lexenv-blocks)
      (frob tags lexenv-tags)
      (frob type-restrictions lexenv-type-restrictions)
-     lambda cleanup policy
-     (frob options lexenv-options))))
+     lambda cleanup policy)))
 
 ;;; Makes a LEXENV, suitable for using in a MACROLET introduced
 ;;; macroexpander
@@ -432,9 +431,7 @@
      (lexenv-type-restrictions lexenv) ; XXX
      nil
      nil
-     (lexenv-policy lexenv)
-     nil ; XXX
-     )))
+     (lexenv-policy lexenv))))
 
 ;;;; flow/DFO/component hackery