anchor.diff:              (defclass ,class-name (gadget-view)
                 ((gadget-name :allocation :class :reader view-gadget-name
                               :initform ',name)
  -               (gadget-initargs :accessor view-gadget-initargs)
  -               ,@new-slots))
  +               (gadget-initargs :accessor view-gadget-initargs)))
               (defmethod initialize-instance :after
                   ((instance ,class-name)
                    &rest initargs &key ,@parameters)
  
positive.code:   (define-gadget-view radio-box)
    (define-gadget-view check-box)
    (define-gadget-view slider)
    (define-gadget-view text-field
        ((width :accessor width :initarg :width :initform nil)))
    (define-gadget-view text-editor)
    (define-gadget-view list-pane)
    (define-gadget-view option-pane))
  
negative.code: ;;; Views described in the Franz User manual (CLIM 2.2). Sec. 8.6.13
  
  (macrolet
      ((define-gadget-view (name)
         ;; The gadget class stores the information required to make an
         ;; instances of its corresponding gadget class: the name of the
         ;; gadget class and a list of initargs. The INITIALIZE-INSTANCE
  