anchor.diff:  
   ;;; Special version if test-not and key both are given
   
  -(defun subst-test-not-key (new old tree test key)
  +(defun |subst key=other test-not=other| (new old tree test key)
     (labels ((traverse (tree)
                (cond ((not (funcall test old (funcall key tree))) new)
                      ((atom tree) tree)
  
positive.code:                   (|member test=other key=identity| 'member item list test)))
            (if test-not-given
                (if (or (eq test-not #'eq) (eq test-not 'eq))
                    (|member-test-not=eq key=identity| 'member item list)
                    (if (or (eq test-not #'eql) (eq test-not 'eql))
                        (|member-test-not=eql key=identity| 'member item list)
                        (|member test-not=other key=identity| 'member item list test-not)))
                (|member test=eql key=identity| 'member item list)))))
  
  ;;; Special versions of the member function with the arguments
  ;;; of the test reversed.
  
  (defun |member reversed-test=other key=identity| (name item list test)
    (with-proper-list-rests (rest list name)
      (when (funcall test (car rest) item)
        (return rest))))
  
  (defun |member reversed-test=other key=other| (name item list test key)
    (with-proper-list-rests (rest list name)
      (when (funcall test (funcall key (car rest)) item)
        (return rest))))
  
  (defun |member reversed-test-not=other key=identity| (name item list test)
    (with-proper-list-rests (rest list name)
      (when (not (funcall test (car rest) item))
        (return rest))))
  
  (defun |member reversed-test-not=other key=other| (name item list test key)
    (with-proper-list-rests (rest list name)
      (when (not (funcall test (funcall key (car rest)) item))
        (return rest))))
  
negative.code: 	    ((atom tree) tree)
  	    (t (traverse tree) tree)))))
  
  (defun |nsublis key=identity test-not=other| (alist tree test)
    (labels ((traverse (tree)
               (let ((entry (with-alist-elements (element alist nsublis)
  			    (when (not (funcall test (car element) (car tree)))
  