fixup for make-specializer-form-using-class

specializers name themselves

diff --git a/src/pcl-patch.lisp b/src/pcl-patch.lisp
index e78457b267fd8c30b8742457b45641c7b299935a..2234085e58c520c9784b8831e22f99da4941afd6 100644 (file)
--- a/src/pcl-patch.lisp
+++ b/src/pcl-patch.lisp
@@ -140,6 +140,13 @@ return three values:
          :references (list '(:ansi-cl :macro defmethod)
                            '(:ansi-cl :glossary "parameter specializer name"))))
 
+(defmethod make-specializer-form-using-class or
+    ((proto-generic-function standard-generic-function)
+     (proto-method standard-method)
+     (specializer-name specializer)
+     (environment t))
+  specializer-name)
+
 (defmethod make-specializer-form-using-class or
     ((proto-generic-function standard-generic-function)
      (proto-method standard-method)