From 5722fa2b7cfd9626b467e363a5481bdc903a388c Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 20 Dec 2005 15:03:02 +0000
Subject: [PATCH] Forgot the case in which the generic function is modified
 using ENSURE-GENERIC-FUNCTION

---
 src/clos/generic.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/clos/generic.lsp b/src/clos/generic.lsp
index b894aea33..709a05741 100644
--- a/src/clos/generic.lsp
+++ b/src/clos/generic.lsp
@@ -235,7 +235,7 @@
 		 (apply #'ensure-generic-function-using-class gfun name args)))
 	  ;; a generic function already exists
 	  ((si::instancep (or gfun (setf gfun (fdefinition name))))
-	   gfun)
+	   (apply #'reinitialize-instance gfun args))
 	  ((special-operator-p name)
 	   (simple-program-error "The special operator ~A is not a valid name for a generic function" name))
 	  ((macro-function name)