anchor.diff:    (define-enum-type fill-rule :winding :even-odd)
     (define-enum-type line-cap :butt :round :square)
     (define-enum-type line-join :miter :round :bevel)    
  -  (define-enum-type font-slant :normal :itaic :oblique)
  +  (define-enum-type font-slant :normal :italic :oblique)
     (define-enum-type font-weight :normal :bold)
   
     (define-enum-type operator
  
positive.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.13 2007-06-04 10:42:53 espen Exp $
  
  (in-package "CAIRO")
  
  
negative.code: 
  (defmacro defpath (name args &optional relative-p)
    (flet ((def (name type)
   	   `(progn
   	      ,(when (eq type 'optimized-double-float)
   		 `(declaim (inline ,(first name))))
  	      (defbinding ,name () nil
  		(cr context)
  		,@(mapcar #'(lambda (arg) (list arg type)) args)))))
  