[armedbear-cvs] r14295 - branches/1.1.x/contrib/jfli

[mevenson at common-lisp.net]

Author: mevenson
Date: Wed Dec  5 23:11:38 2012
New Revision: 14295

Log:
jfli: use MOP::ENSURE-CLASS.

Reported by Carlos Ungil.

Modified:
   branches/1.1.x/contrib/jfli/jfli.lisp

Modified: branches/1.1.x/contrib/jfli/jfli.lisp
==============================================================================
--- branches/1.1.x/contrib/jfli/jfli.lisp	Wed Dec  5 23:06:36 2012	(r14294)
+++ branches/1.1.x/contrib/jfli/jfli.lisp	Wed Dec  5 23:11:38 2012	(r14295)
@@ -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))))