0.pre7.61:

[sbcl.git] / src / pcl / methods.lisp

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 9ba3364..34e166a 100644 (file)
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -205,7 +205,7 @@
                   lambda-list lambda-list-p))
 
   (when namep
-    (set-function-name generic-function name))
+    (set-fun-name generic-function name))
 
   (flet ((initarg-error (initarg value string)
           (error "when initializing the generic function ~S:~%~
@@ -1289,8 +1289,7 @@
                (if function-p
                    function
                    (make-fast-method-call
-                    :function (set-function-name function
-                                                 `(sdfun-method ,name))
+                    :function (set-fun-name function `(sdfun-method ,name))
                     :arg-info fmc-arg-info))))))))))
 
 (defvar *show-make-unordered-methods-emf-calls* nil)