X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffsc.lisp;h=46f694446dae61d13bd67d46b840fcd0bdb0793d;hb=2d237dbc3edb1f6f5337ab19dd74a317e43234db;hp=cb3a8345982cec70e41235c77742a2bb8878ee9a;hpb=1a405defbd26ca767e71494b67127fcc00a8af12;p=sbcl.git

diff --git a/src/pcl/fsc.lisp b/src/pcl/fsc.lisp
index cb3a834..46f6944 100644
--- a/src/pcl/fsc.lisp
+++ b/src/pcl/fsc.lisp
@@ -42,12 +42,6 @@
 (defmethod raw-instance-allocator ((class funcallable-standard-class))
   'allocate-funcallable-instance)
 
-(defmethod validate-superclass ((fsc funcallable-standard-class)
-                                (new-super std-class))
-  (let ((new-super-meta-class (class-of new-super)))
-    (or (eq new-super-meta-class *the-class-std-class*)
-        (eq (class-of fsc) new-super-meta-class))))
-
 (defmethod allocate-instance
            ((class funcallable-standard-class) &rest initargs)
   (declare (ignore initargs))