anchor.diff:  
   
   (clg-init)
  -(rsvg:init)
  +#+rsvg(rsvg:init)
   
   ;; We need to turn off floating point exceptions, because Cairo is
   ;; presumably using internal code which generates NaNs in some cases.
  
positive.code: #+cmu(asdf:oos 'asdf:load-op :gtk)
  #+sbcl(require :cairo)
  #+cmu(asdf:oos 'asdf:load-op :cairo)
  #+sbcl(require :rsvg)
  #+cmu(asdf:oos 'asdf:load-op :rsvg)
  
  (defpackage "TESTCAIRO"
    (:use "COMMON-LISP" "GTK")
  
negative.code:      (cairo:set-source-color cr 0.0 1.0 0.0)
       (cairo:rectangle cr 0.4 0.4 0.4 0.4)
       (cairo:fill cr)
         
       (cairo:set-source-color cr 0.0 0.0 1.0)
       (cairo:rectangle cr 0.6 0.6 0.3 0.3)
       (cairo:fill cr)))
  