X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fgeneric-functions.lisp;h=5692ff4bb2e6dab87baaef774464dee00286056a;hb=ed3295bc583cd14104130441e9ff1ad40fa5e484;hp=e0dabdff05064fbdeb359ebfc368f173b6628d42;hpb=310aee0b439b715a5ec242862ab0a4d254e123b5;p=sbcl.git

diff --git a/src/pcl/generic-functions.lisp b/src/pcl/generic-functions.lisp
index e0dabdf..5692ff4 100644
--- a/src/pcl/generic-functions.lisp
+++ b/src/pcl/generic-functions.lisp
@@ -164,6 +164,8 @@
 
 (defgeneric (setf class-incompatible-superclass-list) (new-value pcl-class))
 
+(defgeneric (setf class-name) (new-value class))
+
 (defgeneric (setf class-slots) (new-value slot-class))
 
 (defgeneric (setf generic-function-method-class) (new-value
@@ -178,6 +180,8 @@
 (defgeneric (setf generic-function-methods) (new-value
                                              standard-generic-function))
 
+(defgeneric (setf generic-function-name) (new-value standard-generic-function))
+
 (defgeneric (setf gf-dfun-state) (new-value standard-generic-function))
 
 (defgeneric (setf generic-function-initial-methods)