anchor.diff:      (if (equal face '(:bold :italic))
           4
           (ecase face
  -	  ((nil) 0)
  -	  ((:roman) 1)
  -	  ((:bold) 2)
  -	  ((:italic) 3))))
  +          ((nil) 0)
  +          ((:roman) 1)
  +          ((:bold) 2)
  +          ((:italic) 3))))
   
     (defun size-key (size)
       (if (numberp size)
           (+ 10 (round (* 256 size)))
           (ecase size
  -	  ((nil)         0)
  -	  ((:tiny)       1)
  -	  ((:very-small) 2)
  -	  ((:small)      3)
  -	  ((:normal)     4)
  -	  ((:large)      5)
  -	  ((:very-large) 6)
  -	  ((:huge)       7)
  -	  ((:smaller)    8)
  -	  ((:larger)     9))))
  +          ((nil)         0)
  +          ((:tiny)       1)
  +          ((:very-small) 2)
  +          ((:small)      3)
  +          ((:normal)     4)
  +          ((:large)      5)
  +          ((:very-large) 6)
  +          ((:huge)       7)
  +          ((:smaller)    8)
  +          ((:larger)     9))))
   
     (defun text-style-key (family face size)
       (+ (* 256 (size-key size))
  
positive.code:   #.(* 2 single-float-epsilon))
  
  (defmethod line-style-equalp ((style1 standard-line-style)
  			      (style2 standard-line-style))
    (and (eql (line-style-unit style1) (line-style-unit style2))
         (eql (line-style-thickness style1) (line-style-thickness style2))
         (eql (line-style-joint-shape style1) (line-style-joint-shape style2))
  
negative.code: (defun find-smaller-size (size)
    (if (numberp size)
        (max (round (/ size *font-scaling-factor*)) *font-min-size*)
        (cadr (member size *smaller-sizes*))))
  
  (defconstant *larger-sizes* '(:tiny :very-small :small :normal
                                :large :very-large :huge :huge))
  
  (defun find-larger-size (size)
    (if (numberp size)
        (min (round (* size *font-scaling-factor*)) *font-max-size*)
        (cadr (member size *larger-sizes*))))
  
  (defmethod text-style-components ((text-style standard-text-style))
    (values (text-style-family   text-style)
  