diff --git a/code/eval.lisp b/code/eval.lisp
index 1df5d6d41c9b82fdd85e4d70e57df5473d02f797..f3b68c6915038c2251058b567790424475fa94e7 100644
--- a/code/eval.lisp
+++ b/code/eval.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.41 2004/10/12 16:56:21 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.42 2005/07/13 17:19:33 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -367,7 +367,9 @@
 	  (t
 	   nil))))
 
-(defun (setf macro-function) (function symbol)
+;; This is supposed to take an optional env arg.  But what should we
+;; do with that?  I (rtoy) don't know, so we do nothing right now.
+(defun (setf macro-function) (function symbol &optional env)
   (declare (symbol symbol) (type function function))
 
   (when (eq (info function kind symbol) :special-form)
@@ -439,7 +441,7 @@
 		:notinline)
       (values (info function compiler-macro-function name)))))
 
-(defun (setf compiler-macro-function) (function name)
+(defun (setf compiler-macro-function) (function name &optional env)
   (declare (type (or symbol list) name)
 	   (type (or function null) function))
   (when (eq (info function kind name) :special-form)