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: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; --------------------------------------------------------------------
  
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
  