[armedbear-cvs] r12452 - branches/metaclass/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Feb 12 15:34:37 2010
New Revision: 12452

Log:
Unbind functions before defining generic functions for them.

Modified:
   branches/metaclass/abcl/src/org/armedbear/lisp/clos.lisp

Modified: branches/metaclass/abcl/src/org/armedbear/lisp/clos.lisp
==============================================================================
--- branches/metaclass/abcl/src/org/armedbear/lisp/clos.lisp	(original)
+++ branches/metaclass/abcl/src/org/armedbear/lisp/clos.lisp	Fri Feb 12 15:34:37 2010
@@ -1792,6 +1792,7 @@
                    )))
 
 (fmakunbound 'class-name)
+(fmakunbound '(setf class-name))
 
 (defgeneric class-name (class))
 
@@ -1811,6 +1812,9 @@
 (defmethod class-precedence-list ((class class))
   (%class-precedence-list class))
 
+
+
+(fmakunbound 'documentation)
 (defgeneric documentation (x doc-type))
 
 (defgeneric (setf documentation) (new-value x doc-type))
@@ -2400,4 +2404,5 @@
 ;; FIXME
 (defgeneric function-keywords (method))
 
+
 (provide 'clos)