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: 
  (defclass standard-line-style (line-style)
    ((unit        :initarg :line-unit
  	        :initform :normal
  	        :reader line-style-unit
                  :type (member :normal :point :coordinate))
     (thickness   :initarg :line-thickness
  	        :initform 1
  	        :reader line-style-thickness
                  :type real)
     (joint-shape :initarg :line-joint-shape
  		:initform :miter
  		:reader line-style-joint-shape
                  :type (member :miter :bevel :round :none))
     (cap-shape   :initarg :line-cap-shape
  	        :initform :butt
  	        :reader line-style-cap-shape
                  :type (member :butt :square :round :no-end-point))
     (dashes      :initarg :line-dashes
  	        :initform nil
  	        :reader line-style-dashes
                  :type (or (member t nil)
                            sequence))))
  
  (defun make-line-style (&key (unit :normal) (thickness 1)
  			     (joint-shape :miter) (cap-shape :butt)
  			     (dashes nil))
    (make-instance 'standard-line-style
      :line-unit unit
      :line-thickness thickness
      :line-joint-shape joint-shape
      :line-cap-shape cap-shape
      :line-dashes dashes))
  
  (defmethod print-object ((self standard-line-style) stream)
    (print-unreadable-object (self stream :type t :identity nil)
  
negative.code: 
    (defun make-text-style (family face size)
      (if (and (symbolp family)
               (or (symbolp face)
                   (and (listp face) (every #'symbolp face))))
          ;; Portable text styles have always been cached in McCLIM like this:
          ;; (as permitted by the CLIM spec for immutable objects, section 2.4)
          (let ((key (text-style-key family face size)))
            (declare (type fixnum key))
            (ensure-gethash key *text-style-hash-table*
                            (make-text-style-1 family face size)))
          ;; Extended text styles using custom components is cached using
  