Changeset 2678

Show
Ignore:
Timestamp:
03/06/08 11:40:56 (9 months ago)
Author:
hans
Message:

try to get rid of homedir reference

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • branches/bos/tools/make-core.lisp

    r1797 r2678  
    66 
    77(defparameter *src-directory* (make-pathname :directory (pathname-directory *load-truename*))) 
    8 (defparameter *bknr-directory* (merge-pathnames #p"bknr-svn/" (user-homedir-pathname))) 
     8(defparameter *bknr-directory* (merge-pathnames #p"../" *load-pathname*)) 
    99 
    1010#+cmu #-cmu19b 
    11 (load (merge-pathnames "bknr/patches/patch-around-mop-cmucl19a.lisp" *bknr-directory*)) 
     11(load (merge-pathnames #P"../bknr/patches/patch-around-mop-cmucl19a.lisp" *load-pathname*)) 
    1212#-asdf 
    1313(error "No ASDF found in image, please provide one through the default image or home:init.lisp")