Changeset 14295


Ignore:
Timestamp:
12/06/12 07:11:38 (9 years ago)
Author:
Mark Evenson
Message:

jfli: use MOP::ENSURE-CLASS.

Reported by Carlos Ungil.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/1.1.x/contrib/jfli/jfli.lisp

    r14258 r14295  
    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.