0.6.10.19:

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

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 19f377b..807b45b 100644 (file)
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -22,9 +22,6 @@
 ;;;; specification.
 
 (in-package "SB-PCL")
-
-(sb-int:file-comment
-  "$Header$")
 \f
 (defmethod shared-initialize :after ((slotd standard-slot-definition)
                                     slot-names &key)
@@ -294,7 +291,7 @@
     (cond ((or (null (fboundp generic-function-name))
               (not (generic-function-p
                      (setq generic-function
-                           (symbol-function generic-function-name)))))
+                           (name-get-fdefinition generic-function-name)))))
           (error "~S does not name a generic function."
                  generic-function-name))
          ((null (setq method (get-method generic-function
@@ -315,7 +312,7 @@
                              lambda-list
                              &rest other-initargs)
   (unless (and (fboundp generic-function-name)
-              (typep (symbol-function generic-function-name)
+              (typep (name-get-fdefinition generic-function-name)
                      'generic-function))
     (sb-kernel::style-warn "implicitly creating new generic function ~S"
                           generic-function-name))