It is used by PROVIDE and REQUIRE.")
(defvar *module-provider-functions* (list 'module-provide-contrib)
- "See function documentation for REQUIRE")
+ "See function documentation for REQUIRE.")
\f
;;;; PROVIDE and REQUIRE
(merge-pathnames
(make-pathname :directory (list :relative filesys-name)
:name filesys-name)
- (truename (posix-getenv "SBCL_HOME"))))
+ (truename (or (sbcl-homedir-pathname)
+ (return-from module-provide-contrib nil)))))
(fasl-path (merge-pathnames
(make-pathname :type *fasl-file-type*)
unadorned-path))