anchor.diff:    (x double-float :in/out)
     (y double-float :in/out))
   
  -(defbinding user-to-device-distance () nil
  +(defbinding user-to-device-distance (cr dx &optional (dy 0.0)) nil
     (cr context)
     (dx double-float :in/out)
     (dy double-float :in/out))
  
positive.code:   (x double-float :in/out)
    (y double-float :in/out))
  
  (defbinding device-to-user-distance () nil
    (cr context)
    (dx double-float :in/out)
    (dy double-float :in/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.7 2006-12-24 14:28:20 espen Exp $
  
  (in-package "CAIRO")
  
  