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