/[cffi-objects]/object.lisp
ViewVC logotype

Diff of /object.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7 by rklochkov, Thu Aug 9 16:55:23 2012 UTC revision 10 by rklochkov, Fri Aug 24 20:44:53 2012 UTC
# Line 73  for example, by g_object_new.")) Line 73  for example, by g_object_new."))
73    (unless (null-pointer-p (pointer object))    (unless (null-pointer-p (pointer object))
74      (remhash (pointer-address (pointer object)) *objects*)      (remhash (pointer-address (pointer object)) *objects*)
75      (remhash (id object) *objects-ids*)      (remhash (id object) *objects-ids*)
76        (when (and (slot-value object 'free-after) (not (null-pointer-p value)))
77          (free-ptr (class-of object) value))
78      (setf (pointer object) (null-pointer)      (setf (pointer object) (null-pointer)
79            (id object) nil)))            (id object) nil)))
80    

Legend:
Removed from v.7  
changed lines
  Added in v.10

  ViewVC Help
Powered by ViewVC 1.1.5