anchor.diff:      ;; option-panes for each specializer argument.
       (let ((fm (frame-manager *application-frame*)))
         (with-look-and-feel-realization (fm *application-frame*)
  -        (sheet-adopt-child container            
  +        (sheet-adopt-child container
             (make-pane 'table-pane :spacing 8    ;; McCLIM issue: spacing initarg
               :contents (loop for index from 0 by 1
                               for curval in arg-types
  
positive.code: 
  (defun maybe-find-gf (name)
    "Search for the generic function named by the user"
    (ignore-errors 
      (let ((sym (read-from-string name)))
        (and sym
             (fboundp sym)
  
negative.code:            (methods (compute-applicable-methods-from-specializers gf (arg-types frame)))
             (combination (c2mop:generic-function-method-combination gf))
             (effective-methods (c2mop:compute-effective-method gf combination methods))
             (serial-methods (walk-em-form effective-methods)))
        ;; Print the header
        (fresh-line)
        (with-drawing-options (pane :text-style (make-text-style :sans-serif :bold :large)
  