load-as-package.lisp

(defun make-package-name(pathname)
  (values ; to discard second value.
    (read-from-string ; to use implementation dependent readtable case.
      (namestring(make-pathname :type nil :defaults pathname)))))

(defun load-as-package(pathname)
  (let((package-name(make-package-name(enough-namestring pathname (uiop:getcwd)))))
    (let((*package*(or (find-package package-name)
		       (make-package package-name :use '(:cl)))))
      (uiop:load* pathname))))