From: Juho Snellman <jsnell@iki.fi>
Date: Tue, 2 Jan 2007 21:15:14 +0000 (+0000)
Subject: 1.0.1.8:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=768c5a8589e9b48afa2c610331673e90e093ccbe;p=sbcl.git

1.0.1.8:
        Handle REQUIRE on non-asdf contrib modules more gracefully for
        :EXECUTABLE cores.
---

diff --git a/src/code/module.lisp b/src/code/module.lisp
index 369dcb2..fe3b765 100644
--- a/src/code/module.lisp
+++ b/src/code/module.lisp
@@ -85,7 +85,8 @@
           (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))
diff --git a/version.lisp-expr b/version.lisp-expr
index 41968f7..39dbfef 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.7"
+"1.0.1.8"