[armedbear-cvs] r13979 - trunk/abcl/src/org/armedbear/lisp

[rschlatte at common-lisp.net]

Author: rschlatte
Date: Tue Jun 19 06:52:22 2012
New Revision: 13979

Log:
export mop:compute-discriminating-function

- amusingly, this fixes 6 failures in the mop-feature-tests suite.

Modified:
   trunk/abcl/src/org/armedbear/lisp/mop.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/mop.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/mop.lisp	Mon Jun 18 09:32:48 2012	(r13978)
+++ trunk/abcl/src/org/armedbear/lisp/mop.lisp	Tue Jun 19 06:52:22 2012	(r13979)
@@ -56,6 +56,7 @@
           compute-class-precedence-list
           compute-default-initargs
           compute-effective-slot-definition
+          compute-discriminating-function
           compute-applicable-methods
           compute-applicable-methods-using-classes
           compute-effective-method