anchor.diff:                        (merge-pathnames shlyfile (ccl:current-directory))
                         #-ccl
                         (asdf::truenamize shlyfile))))
  -    (pushnew (directory-namestring shlyfile)
  -             asdf:*central-registry*)
       (let ((*standard-output* (make-broadcast-stream))
             (*package* (find-package :cl-user)))
         (with-retrying-when-system-not-found
  
positive.code:                       (car (member-if #'fad:file-exists-p
                                        '(#P"shlyfile" #P"shlyfile.lisp" #P"shlyfile.cl"))))))
      (when shlyfile
        (load-shlyfile shlyfile))))
  
  @export
  (defun load-global-shlyfile ()
  
negative.code:       (import (local-command-symbols) (find-package :cl-user)))))
  
  @export
  (defun load-local-shlyfile (&optional (shlyfile nil shlyfile-specified-p))
    (when (and shlyfile-specified-p
               (not (fad:file-exists-p shlyfile)))
      (terminate 1 "Error: No such shlyfile: \"~A\"" shlyfile))
  
  