anchor.diff:  
   (defclass range (widget)
     ((update-policy
  -    :allocation :arg
  +    :allocation :param
       :accessor range-update-policy
       :initarg :update-policy
       :type update-type)
  
positive.code: 
  (defclass toggle-button (button)
    ((active
      :allocation :arg
      :accessor toggle-button-active-p
      :initarg :active
      :type boolean)
     (draw-indicator
      :allocation :arg
      :accessor toggle-button-draw-indicator-p
      :initarg :draw-indicator
      :type boolean))
  
negative.code: 
  (defclass tips-query (label)
    ((emit-always
      :allocation :param
      :accessor tips-query-emit-always-p
      :initarg :emit-always
      :type boolean)
     (caller
      :allocation :param
      :accessor tips-query-caller
      :initarg :caller
      :type widget)
     (label-inactive
      :allocation :param
      :accessor tips-query-label-inactive
      :initarg :label-inactive
      :type string)
     (label-no-tip
      :allocation :param
      :accessor tips-query-label-no-tip
      :initarg :label-no-tip
      :type string))
  