Changeset 14290


Ignore:
Timestamp:
Sep 20, 2010, 2:17:14 PM (9 years ago)
Author:
gb
Message:

Learn (once again) how to write disturbingly simple code.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-clos.lisp

    r14289 r14290  
    150150                                (let* ((slot-vector (create-foreign-instance-slot-vector (class-of p))))
    151151                                  (when slot-vector
    152                                     (let* ((copy (%inc-ptr p)))
     152                                    (let* ((copy (%inc-ptr p 0)))
    153153                                      (setf (slot-vector.instance slot-vector) copy)
    154154                                      (setf (gethash copy *objc-object-slot-vectors*) slot-vector))
     
    753753        (let* ((slot-vector (create-foreign-instance-slot-vector class)))
    754754          (when slot-vector
    755             (let* ((copy (%inc-ptr instance)))
     755            (let* ((copy (%inc-ptr instance 0)))
    756756              (setf (slot-vector.instance slot-vector) copy)
    757757            (setf (gethash copy *objc-object-slot-vectors*) slot-vector))))))
Note: See TracChangeset for help on using the changeset viewer.