Diff of /src/clos/method.lsp [645090] .. [93be6c] Maximize Restore

  Switch to side-by-side view

--- a/src/clos/method.lsp
+++ b/src/clos/method.lsp
@@ -374,7 +374,7 @@
 ;;; early version used during bootstrap
 (defun add-method (gf method)
   (with-early-accessors (+standard-method-slots+ +standard-generic-function-slots+ +standard-class-slots+)
-    (let* ((name (generic-function-name gf))
+    (let* ((name (slot-value gf 'name))
 	   (method-entry (assoc name *early-methods*)))
       (unless method-entry
 	(setq method-entry (list name))