anchor.diff:  
   
   (clg-init)
  -;;(rsvg:init)
  +(rsvg:init)
  +
  +;; We need to turn off floating point exceptions, because Cairo is
  +;; presumably using internal code which generates NaNs in some cases.
  +;; Thanks to Christophe Rhodes for pointing this out.
  +#+sbcl(sb-int:set-floating-point-modes :traps nil) 
  +#+cmu(ext:set-floating-point-modes :traps nil)
  +
  +(create-tests)
  
positive.code: 	    :focus-vadjustment (scrolled-window-vadjustment scrolled-window)
  	    :children (mapcar #'(lambda (snippet)
  				  (create-button (string-downcase snippet) snippet))
  			      (sort *snippets* #'string<)))))
        (scrolled-window-add-with-viewport scrolled-window content-box))
      
      (widget-grab-focus close-button)
  
negative.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")
  