X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgeneric-functions.lisp;h=0b45a7a3f23fe20e02cd7ed147667fae87144a8c;hb=1dfcd0ed5fc81f4355101c1eeb990a1f7d089e40;hp=433e8a4569615834652730780ecb39fc6356a924;hpb=a92c91a4fdcdcf1c96b33339c1ef077243183187;p=sbcl.git diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp index 433e8a4..0b45a7a 100644 --- a/src/pcl/generic-functions.lisp +++ b/src/pcl/generic-functions.lisp @@ -96,6 +96,8 @@ (defgeneric gf-dfun-state (standard-generic-function)) +(defgeneric generic-function-initial-methods (standard-generic-function)) + (defgeneric long-method-combination-function (long-method-combination)) (defgeneric method-combination-documentation (standard-method-combination)) @@ -181,6 +183,9 @@ (defgeneric (setf gf-dfun-state) (new-value standard-generic-function)) +(defgeneric (setf generic-function-initial-methods) + (new-value standard-generic-function)) + (defgeneric (setf method-generic-function) (new-value standard-method)) (defgeneric (setf object-plist) (new-value plist-mixin)) @@ -330,8 +335,6 @@ (defgeneric effective-slot-definition-class (class initargs)) -(defgeneric inform-type-system-about-class (class name)) - (defgeneric legal-documentation-p (object x)) (defgeneric legal-method-function-p (object x))