Changeset 14009


Ignore:
Timestamp:
07/16/12 13:30:26 (8 years ago)
Author:
rschlatte
Message:

Don't redefine metaclasses

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/clos.lisp

    r14008 r14009  
    889889Handle with care."
    890890  (let ((class (gensym)))
    891     `(let ((,class (make-instance-standard-class
    892                     nil
    893                     :name ',name
    894                     :direct-superclasses ',(mapcar #'find-class superclasses)
    895                     :direct-slots ,(canonicalize-direct-slots direct-slots))))
     891    `(let ((,class (or (find-class ',name nil)
     892                       (make-instance-standard-class
     893                        nil
     894                        :name ',name
     895                        :direct-superclasses ',(mapcar #'find-class superclasses)
     896                        :direct-slots ,(canonicalize-direct-slots direct-slots)))))
    896897       (%set-find-class ',name ,class)
    897898       ,class)))
Note: See TracChangeset for help on using the changeset viewer.