anchor.diff:  
   ;;; Scaled Fonts
   
  -(defbinding %scaled-font-reference () nil
  +(defbinding %scaled-font-reference () pointer
     (location pointer))
   
   (defbinding %scaled-font-destroy () nil
  
positive.code:     (:unref %destroy))
  
    (defclass image-surface (surface)
      ((width
        :allocation :virtual 
        :getter "cairo_image_surface_get_width"
        :reader surface-width
  
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.10 2007-01-13 00:15:36 espen Exp $
  
  (in-package "CAIRO")
  
  