X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=34e166aa3757b68aa7143efc5192500d9cd636f2;hb=0a82f2db352cc348d2107a882e50af222ff97ed3;hp=9ba3364f4ac51f11b8771246283f8976c115c963;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 9ba3364..34e166a 100644
--- 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)