anchor.diff:  
   (defun maybe-find-gf (name)
     "Search for the generic function named by the user"
  -  (ignore-errors 
  +  (ignore-errors
       (let ((sym (read-from-string name)))
         (and sym
              (fboundp sym)
  
positive.code:       (compute-applicable-methods-using-classes gf specializers)
        (let ((instances
               (mapcar (lambda (s)
                         (cond ((classp s) 
                                ;; Implementation-dependent whether prototypes for
                                ;; built-in classes (like integer, t) are available.
                                (multiple-value-bind (prot err)
  
negative.code:     ;; option-panes for each specializer argument.
      (let ((fm (frame-manager *application-frame*)))
        (with-look-and-feel-realization (fm *application-frame*)
          (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
  