anchor.diff:                             :name nil :type nil :version nil
                              :case :common))
              (t
  -            (merge-pathnames 
  +            (merge-pathnames
                (make-pathname :directory (list :relative name)
                               :name nil :type nil :version nil
                               :case :common)
  
positive.code: ;;;;SYSTEM:             Common-Lisp
  ;;;;USER-INTERFACE:     NONE
  ;;;;DESCRIPTION
  ;;;;    
  ;;;;    Exports shell functions.
  ;;;;    
  ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  
negative.code: ;;;;BUGS
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;
  ;;;;    Copyright Pascal J. Bourguignon 2020 - 2020
  ;;;;
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  ;;;;    the Free Software Foundation, either version 3 of the License, or
  ;;;;    (at your option) any later version.
  ;;;;
  ;;;;    This program is distributed in the hope that it will be useful,
  ;;;;    but WITHOUT ANY WARRANTY; without even the implied warranty of
  ;;;;    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  ;;;;    GNU Affero General Public License for more details.
  ;;;;
  ;;;;    You should have received a copy of the GNU Affero General Public License
  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  ;;;;**************************************************************************
  