Changeset 14010


Ignore:
Timestamp:
07/16/12 14:04:07 (8 years ago)
Author:
rschlatte
Message:

Revert previous commit.

  • hacking clos is hard, let's go shopping!
File:
1 edited

Legend:

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

    r14009 r14010  
    889889Handle with care."
    890890  (let ((class (gensym)))
    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)))))
     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))))
    897896       (%set-find-class ',name ,class)
    898897       ,class)))
Note: See TracChangeset for help on using the changeset viewer.