Changeset 614
- Timestamp:
- Mar 3, 2004, 2:18:07 PM (21 years ago)
- File:
-
- 1 edited
-
trunk/ccl/examples/objc-clos.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/examples/objc-clos.lisp
r575 r614 188 188 (ecase flags 189 189 (#.objc-flag-instance (or (gethash p *objc-object-slot-vectors*) 190 (error "~s has no slots." p)))190 (error "~s has no slots." p))) 191 191 (#.objc-flag-class (id->objc-class-slots-vector index)) 192 192 (#.objc-flag-metaclass (id->objc-metaclass-slots-vector index)))))
Note:
See TracChangeset
for help on using the changeset viewer.
