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