X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=02f7edc4b497b20877ed84c7fc0ec6a53219374d;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=fe779690022fcc6d4dbf9d95f8b1518785093041;hpb=3ecee4526a55b3b4e6d7f86d69dc411f074968ec;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index fe77969..02f7edc 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -804,6 +804,14 @@
     :reader method-combination-options
     :initarg :options)))
 
+(defclass long-method-combination (standard-method-combination)
+  ((function
+    :initarg :function
+    :reader long-method-combination-function)
+   (args-lambda-list
+    :initarg :args-lambda-list
+    :reader long-method-combination-args-lambda-list)))
+
 (defparameter *early-class-predicates*
   '((specializer specializerp)
     (exact-class-specializer exact-class-specializer-p)
@@ -824,5 +832,6 @@
     (standard-boundp-method standard-boundp-method-p)
     (generic-function generic-function-p)
     (standard-generic-function standard-generic-function-p)
-    (method-combination method-combination-p)))
+    (method-combination method-combination-p)
+    (long-method-combination long-method-combination-p)))