From 3f63bd12fd23084b8148a3ee37e2360553c674f7 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Thu, 22 May 2014 10:23:53 +0100 Subject: [PATCH] fixup for make-specializer-form-using-class specializers name themselves --- src/pcl-patch.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/pcl-patch.lisp b/src/pcl-patch.lisp index e78457b..2234085 100644 --- 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) -- 2.39.5