anchor.diff:      (:unref %destroy))
   
   
  -;;   (defclass path (proxy)
  -;;     ()
  -;;     (:metaclass proxy-class))
  -
  -  )
  +   (defclass path (struct)
  +     ((status :allocation :alien :type status)
  +      (data :allocation :alien :type pointer)
  +      (length :allocation :alien :type int))
  +     (:metaclass proxy-class)
  +     (:unref %path-destroy)))
   
   
   ;;; Cairo context
  
positive.code: 
  ;;; Paths
  
  (defbinding get-current-point () nil
    (cr context)
    (x double-float :out)
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: cairo.lisp,v 1.17 2007-10-19 10:12:25 espen Exp $
  
  (in-package "CAIRO")
  
  