diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 067914de46e400448d8f619e067c9e7464006643..72530d0795926b1ae13353576b4cb6229e73ab58 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