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

Diff of /freeable.lisp

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

revision 2 by rklochkov, Mon Feb 20 18:55:20 2012 UTC revision 3 by rklochkov, Fri May 4 11:25:20 2012 UTC
# Line 27  appropriate places of your CFFI translat Line 27  appropriate places of your CFFI translat
27    
28  (defgeneric free-sent-ptr (type ptr)  (defgeneric free-sent-ptr (type ptr)
29    (:method ((type freeable-base) ptr)    (:method ((type freeable-base) ptr)
30        (format t "Free-sent-ptr: ~a ~a ~%" type ptr)
31      (free-ptr type ptr)))      (free-ptr type ptr)))
32    
33  (defgeneric free-returned-ptr (type ptr)  (defgeneric free-returned-ptr (type ptr)
34    (:method ((type freeable-base) ptr)    (:method ((type freeable-base) ptr)
35        (format t "Free-returned-ptr: ~a ~a ~%" type ptr)
36      (free-ptr type ptr)))      (free-ptr type ptr)))
37    
38  (defun free-sent-if-needed (type ptr)  (defun free-sent-if-needed (type ptr)

Legend:
Removed from v.2  
changed lines
  Added in v.3

  ViewVC Help
Powered by ViewVC 1.1.5