From: Juho S. <js...@us...> - 2007-01-02 21:15:18
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv27798/src/code Modified Files: module.lisp Log Message: 1.0.1.8: Handle REQUIRE on non-asdf contrib modules more gracefully for :EXECUTABLE cores. Index: module.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/module.lisp,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- module.lisp 28 May 2006 14:27:23 -0000 1.11 +++ module.lisp 2 Jan 2007 21:15:14 -0000 1.12 @@ -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)) |