diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 4ce5f17395fb17eaf1e261fc16265676247e7adb..30f861ac4fcb013d12b4430e0e75dd868c123cd4 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -26,7 +26,7 @@ ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.25 2001/04/10 22:37:21 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.26 2001/05/10 21:28:41 pmai Exp $") (in-package :pcl) @@ -1615,7 +1615,10 @@ work during bootstrapping. (find-method-combination (class-prototype ,gf-class) (car combin) (cdr combin))))) - )) + (let ((method-class (getf ,all-keys :method-class '.shes-not-there.))) + (unless (eq method-class '.shes-not-there.) + (setf (getf ,all-keys :method-class) + (find-class method-class t ,env)))))) (defun real-ensure-gf-using-class--generic-function (existing