X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fpcl%2Fgeneric-functions.lisp;h=0b633a689fac33c8c1c03bf3c4533c86d416b308;hb=d0f65b07a30adc989e36a82ddc0ed54d135d638e;hp=4439b026912c188609006f8f28bfa6cb58690f2b;hpb=386e90a63e7f9587f7c4d6b9206da72b16dc1361;p=sbcl.git diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp index 4439b02..0b633a6 100644 --- a/src/pcl/generic-functions.lisp +++ b/src/pcl/generic-functions.lisp @@ -113,8 +113,6 @@ (defgeneric short-combination-operator (short-method-combination)) -(defgeneric slot-definition-boundp-function (effective-slot-definition)) - (defgeneric slot-definition-class (slot-definition)) (defgeneric slot-definition-defstruct-accessor-symbol @@ -136,14 +134,12 @@ (defgeneric slot-definition-name (slot-definition)) -(defgeneric slot-definition-reader-function (effective-slot-definition)) +(defgeneric slot-definition-info (effective-slot-definition)) (defgeneric slot-definition-readers (slot-definition)) (defgeneric slot-definition-type (slot-definition)) -(defgeneric slot-definition-writer-function (effective-slot-definition)) - (defgeneric slot-definition-writers (slot-definition)) (defgeneric specializer-object (class-eq-specializer)) @@ -190,9 +186,6 @@ (defgeneric (setf slot-definition-allocation) (new-value standard-slot-definition)) -(defgeneric (setf slot-definition-boundp-function) - (new-value effective-slot-definition)) - (defgeneric (setf slot-definition-class) (new-value slot-definition)) (defgeneric (setf slot-definition-defstruct-accessor-symbol) @@ -215,8 +208,7 @@ (defgeneric (setf slot-definition-name) (new-value slot-definition)) -(defgeneric (setf slot-definition-reader-function) (new-value - effective-slot-definition)) +(defgeneric (setf slot-definition-info) (new-value effective-slot-definition)) (defgeneric (setf slot-definition-readers) (new-value slot-definition))