anchor.diff:  
     (defclass standard-text-style (text-style)
       ((family   :initarg :text-family
  -	       :initform :fix
  -	       :reader text-style-family)
  +               :initform :fix
  +               :reader text-style-family)
        (face     :initarg :text-face
  -	       :initform :roman
  -	       :reader text-style-face)
  +               :initform :roman
  +               :reader text-style-face)
        (size     :initarg :text-size
  -	       :initform :normal
  -	       :reader text-style-size)))
  +               :initform :normal
  +               :reader text-style-size)))
   
     (defmethod make-load-form ((obj standard-text-style) &optional env)
       (declare (ignore env))
  
positive.code: 
  (defmethod make-device-font-text-style (port font-name)
    (let ((text-style (make-instance 'device-font-text-style
  				   :display-device port
  				   :device-font-name font-name)))
      (setf (text-style-mapping port text-style) font-name)
      text-style))
  
  
negative.code:     (make-instance 'standard-text-style
                     :text-family family
                     :text-face face
                     :text-size size)))
  
  (defmethod print-object ((self standard-text-style) stream)
    (print-unreadable-object (self stream :type t :identity nil)
      (format stream "~{~S~^ ~}" (multiple-value-list (text-style-components self)))))
  
  (defmethod text-style-equalp ((style1 standard-text-style)
                                (style2 standard-text-style))
    (and (equal (text-style-family style1) (text-style-family style2))
         (equal (text-style-face style1) (text-style-face style2))
         (eql (text-style-size style1) (text-style-size style2))))
  