X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fdefs.lisp;h=02f7edc4b497b20877ed84c7fc0ec6a53219374d;hb=ec735ab75335c1744b39190314142a7e6f1ecdb3;hp=ebf2effc24084aa4ef51c7a90d6e20bf907b0089;hpb=3aaed55326303bb377c4821c5e83b2e4e9c538fc;p=sbcl.git diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp index ebf2eff..02f7edc 100644 --- a/src/pcl/defs.lisp +++ b/src/pcl/defs.lisp @@ -645,7 +645,11 @@ ((allocation :initform :instance :initarg :allocation - :accessor slot-definition-allocation))) + :accessor slot-definition-allocation) + (allocation-class + :initform nil + :initarg :allocation-class + :accessor slot-definition-allocation-class))) (defclass structure-slot-definition (slot-definition) ((defstruct-accessor-symbol @@ -800,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) @@ -820,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)))