anchor.diff:        (max (round (* size 4/3)) 6)
       (cadr (member size *larger-sizes*))))
   
  +(defmethod text-style-components ((text-style standard-text-style))
  +  (values (text-style-family text-style)
  +          (text-style-face text-style)
  +          (text-style-size text-style)))
   
   ;;; Device-Font-Text-Style class
   
  
positive.code: (eval-when (eval load compile)
  
  (defclass text-style ()
    ((family :initarg :text-family
  	   :initform :fix
  	   :reader text-style-family)
  
negative.code: 	 :reader text-style-face)
     (size :initarg :text-size
  	 :initform :normal
  	 :reader text-style-size)))
  
  (defun family-key (family)
    (ecase family
  