X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fmethods.lisp;h=e6b08db185a47b8e80f81e78ed24dff9dd9ec13b;hb=2b0c46508938b606e70cd6f2bb51506d44e45262;hp=8ad72f6631d62e9c812c12a3c44af89f0f59d54d;hpb=9283908642216e9a3cc217f8e3eab186c8876593;p=sbcl.git

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 8ad72f6..e6b08db 100644
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -1639,8 +1639,10 @@
                     (t (multiple-value-bind (dfun cache info)
                            (make-final-dfun-internal
                             gf
-                            (list (list (find-class 'sb-kernel::control-stack-exhausted))
-                                  (list (find-class 'sb-kernel::heap-exhausted-error))
+                            (list (list (find-class
+                                         'sb-kernel::control-stack-exhausted))
+                                  (list (find-class
+                                         'sb-kernel::heap-exhausted-error))
                                   (list (find-class 'restart))))
                          (setq po-cache cache)
                          (set-dfun gf dfun cache info))))))
@@ -1650,16 +1652,6 @@
             (make-initial-dfun gf))))
         (function dfun-state)
         (cons (car dfun-state))))))
-
-(defmethod update-gf-dfun ((class std-class) gf)
-  (let ((*new-class* class)
-        (arg-info (gf-arg-info gf)))
-    (cond
-      ((special-case-for-compute-discriminating-function-p gf))
-      ((gf-precompute-dfun-and-emf-p arg-info)
-       (multiple-value-bind (dfun cache info)
-           (make-final-dfun-internal gf)
-         (update-dfun gf dfun cache info))))))
 
 (defmethod (setf class-name) (new-value class)
   (let ((classoid (wrapper-classoid (class-wrapper class))))