From a2a23bee120fcec274b9124c2f9bfcdb68098106 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Sat, 8 Mar 2014 02:29:46 +0400 Subject: [PATCH] ensure-generic-function-using-class: don't use NAME for reinitialization. MOP says that when ensure-generic-function-using-class is called with a generic function, it just calls reinitialize-instance with the supplied initargs. http://www.alu.org/mop/dictionary.html#ensure-generic-function-using-class Fixes #283. --- src/clos/generic.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/clos/generic.lsp b/src/clos/generic.lsp index ddcb2b3cd..f4301ffe4 100644 --- a/src/clos/generic.lsp +++ b/src/clos/generic.lsp @@ -218,8 +218,8 @@ (when (getf (method-plist m) :method-from-defgeneric-p) (remove-method gfun m)))) (if (eq (class-of gfun) generic-function-class) - (apply #'reinitialize-instance gfun :name name args) - (apply #'change-class gfun generic-function-class :name name args))) + (apply #'reinitialize-instance gfun args) + (apply #'change-class gfun generic-function-class args))) (defmethod ensure-generic-function-using-class ((gfun null) name &rest args &key