From: espen <espen>
Date: Fri, 3 Mar 2006 19:10:21 +0000 (+0000)
Subject: Existing methods are not cleared when an define-type-generic is reevaluated
X-Git-Tag: clg-0-92~2
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/6eb2183d114b798757aa357bc26130cb2279d2d7

Existing methods are not cleared when an define-type-generic is reevaluated
---

diff --git a/glib/ffi.lisp b/glib/ffi.lisp
index d570696..19c10ea 100644
--- a/glib/ffi.lisp
+++ b/glib/ffi.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: ffi.lisp,v 1.28 2006/02/26 16:12:25 espen Exp $
+;; $Id: ffi.lisp,v 1.29 2006/03/03 19:10:21 espen Exp $
 
 (in-package "GLIB")
 
@@ -348,8 +348,9 @@ (defmacro define-type-generic (name lambda-list &optional documentation)
        (find (first lambda-list) '(&optional &key &rest &allow-other-keys)))
       (error "A type generic needs at least one required argument")
     `(progn 
-       (setf (get ',name 'type-methods) (make-hash-table))
-       (setf (get ',name 'built-in-type-hierarchy) ())
+       (unless (get ',name 'type-methods)
+	 (setf (get ',name 'type-methods) (make-hash-table))
+	 (setf (get ',name 'built-in-type-hierarchy) ()))
        (defun ,name ,lambda-list
 	 ,documentation
 	 (funcall