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: (define-operator-snippet operator-over-reverse :dest-over)
  (define-operator-snippet operator-saturate :saturate)
  (define-operator-snippet operator-xor :xor)
  
        
  
  
negative.code:     (cairo:fill cr)))
  
  
  #+rsvg(progn
  (defun snippet-set-bg-svg (cr filename)
    (let ((handle (make-instance 'rsvg:handle :filename filename)))
      (cairo:with-context (cr)
        (with-slots (rsvg:width rsvg:height) handle
          (cairo:scale cr (/ 1.0 rsvg:width) (/ 1.0 rsvg:height))
  	(rsvg:render-cairo handle cr)))))
  
  (define-snippet librsvg (cr)
  