[armedbear-cvs] r14298 - trunk/abcl/contrib/jfli

[mevenson at common-lisp.net]

Author: mevenson
Date: Thu Dec  6 01:31:50 2012
New Revision: 14298

Log:
Forward port r14295 | mevenson | 2012-12-06 08:11:38 +0100 (Thu, 06 Dec 2012) | 3 lines

jfli: use MOP::ENSURE-CLASS.

Modified:
   trunk/abcl/contrib/jfli/jfli.lisp

Modified: trunk/abcl/contrib/jfli/jfli.lisp
==============================================================================
--- trunk/abcl/contrib/jfli/jfli.lisp	Thu Dec  6 01:26:37 2012	(r14297)
+++ trunk/abcl/contrib/jfli/jfli.lisp	Thu Dec  6 01:31:50 2012	(r14298)
@@ -363,7 +363,7 @@
 	  (unless (and class (subtypep class 'standard-object))
 	    (setf class
 		  #+abcl
-		  (sys::ensure-class  class-sym :direct-superclasses (mapcar #'(lambda (c) (find-class (class-symbol c))) supers))))
+		  (mop::ensure-class  class-sym :direct-superclasses (mapcar #'(lambda (c) (find-class (class-symbol c))) supers))))
 	  (setf (get class-sym :ensured) t)
 	  class))))