Changeset 14009
- Timestamp:
- 07/16/12 13:30:26 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/clos.lisp
r14008 r14009 889 889 Handle with care." 890 890 (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))))) 896 897 (%set-find-class ',name ,class) 897 898 ,class)))
Note: See TracChangeset
for help on using the changeset viewer.