From 5089048918c7d44bf6f914dc64ebfe58bfca8b29 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Wed, 13 Jul 2005 17:19:33 +0000
Subject: [PATCH] CLHS says (setf macro-function) and (setf
 compiler-macro-function) are supposed to take an optional environment arg. 
 Make it so.

But we don't do anything with the environment arg.  I don't know what
to do with it.
---
 code/eval.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/code/eval.lisp b/code/eval.lisp
index 1df5d6d41..f3b68c691 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)
-- 
GitLab