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