From 81dbe24a9680abdcc59db760c3b9824b49c509d6 Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Fri, 9 Jan 2004 05:18:08 +0000
Subject: [PATCH] Take out the fix for the problem of PCL optimizations being
 blindly applied to method parameters which are assigned to.  This fixes a bug
 that shows up in McCLIM.

(From Gerd, on cmucl-imp.)
---
 pcl/boot.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/pcl/boot.lisp b/pcl/boot.lisp
index 067914de4..72530d079 100644
--- a/pcl/boot.lisp
+++ b/pcl/boot.lisp
@@ -25,7 +25,7 @@
 ;;; *************************************************************************
 
 (file-comment
- "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.70 2003/10/29 12:14:35 gerd Exp $")
+ "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.71 2004/01/09 05:18:08 toy Exp $")
 
 (in-package :pcl)
 
@@ -611,8 +611,9 @@ work during bootstrapping.
 	       ;; such parameters because we can't easily tell what they are
 	       ;; actually bound to at each point where they are used.
 	       (assigned-params
-		(let ((assigned (assigned-method-params
-				 method-lambda required-params env)))
+		(let ((assigned #+nil
+			(assigned-method-params
+			 method-lambda required-params env)))
 		  (when assigned
 		    (warn 'kernel:simple-style-warning
 			  :format-control
-- 
GitLab