Ignore:
Timestamp:
12/06/12 09:31:50 (8 years ago)
Author:
Mark Evenson
Message:

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

jfli: use MOP::ENSURE-CLASS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/contrib/jfli/jfli.lisp

    r14258 r14298  
    364364      (setf class
    365365      #+abcl
    366       (sys::ensure-class  class-sym :direct-superclasses (mapcar #'(lambda (c) (find-class (class-symbol c))) supers))))
     366      (mop::ensure-class  class-sym :direct-superclasses (mapcar #'(lambda (c) (find-class (class-symbol c))) supers))))
    367367    (setf (get class-sym :ensured) t)
    368368    class))))
Note: See TracChangeset for help on using the changeset viewer.