anchor.diff:          :accessor medium-ink)
      (transformation :type transformation
                      :initarg :transformation
  -                   :initform +identity-transformation+ 
  +                   :initform +identity-transformation+
                      :accessor medium-transformation)
      (clipping-region :type region
                       :initarg :clipping-region
  
positive.code: ;;
  ;;; And [it can't be said too often] unicode is not a glyph encoding
  ;;; but more a kind of text formating.
  ;;; 
  ;;; [1] or even a code position
  ;;; --GB
  
  
negative.code: (defun device-font-text-style-p (s)
    (typep s 'device-font-text-style))
  
  (defmethod text-style-equalp ((style1 device-font-text-style)
                                (style2 device-font-text-style))
    (eq style1 style2))
  
  