/[cl-cairo2]/surface.lisp
ViewVC logotype

Diff of /surface.lisp

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

revision 8 by tpapp, Sat Jul 21 13:41:55 2007 UTC revision 11 by tpapp, Mon Aug 13 14:30:44 2007 UTC
# Line 45  Line 45 
45      (check-surface-pointer-status pointer      (check-surface-pointer-status pointer
46        (setf (slot-value surface 'pointer) pointer)        (setf (slot-value surface 'pointer) pointer)
47        ;; register finalizer        ;; register finalizer
48        (finalize surface #'(lambda () (cairo_surface_destroy pointer)))  ;;      (finalize surface #'(lambda () (cairo_surface_destroy pointer)))
49        ;; return surface        ;; return surface
50        surface)))        surface)))
51    

Legend:
Removed from v.8  
changed lines
  Added in v.11

  ViewVC Help
Powered by ViewVC 1.1.5