anchor.diff:  
   ;;; Paths
   
  +(defbinding %path-destroy () nil
  +  (location pointer))
  +
  +(defbinding copy-path () path
  +  (cr context))
  +
  +(defbinding copy-path-flat () path
  +  (cr context))
  +
  +(defbinding append-path () nil
  +  (cr context)
  +  (path path))
  +
   (defbinding get-current-point () nil
     (cr context)
     (x double-float :out)
  
positive.code:     (:unref %destroy))
  
  
  ;;   (defclass path (proxy)
  ;;     ()
  ;;     (:metaclass proxy-class))
  
    )
  
  
  ;;; Cairo context
  
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")
  
  