Changeset 6248
- Timestamp:
- Apr 9, 2007, 9:08:12 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/examples/objc-clos.lisp
r6226 r6248 753 753 (setf (slot-vector.instance slot-vector) raw-ptr) 754 754 (setf (gethash raw-ptr *objc-object-slot-vectors*) slot-vector) 755 (register-canonical-objc-instance instance raw-ptr)))) 756 instance)))755 (register-canonical-objc-instance instance raw-ptr))))) 756 instance)) 757 757 758 758 (defmethod terminate ((instance objc:objc-object))
Note: See TracChangeset
for help on using the changeset viewer.