pathnames relative to system

PuercoPop · Jun 29, 2014 · e71bebc · e71bebc
1 parent 7ff25f6
commit e71bebc
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/movitz.lisp b/movitz.lisp
@@ -34,8 +34,8 @@
 (defvar +movitz-multiple-values-limit+ 63)
 
 (defvar *bq-level* 0)
-(defvar *default-image-init-file* #p"losp/los0.lisp")
-(defvar *default-image-file* #p"los0-image")
+(defvar *default-image-init-file* (asdf:system-relative-pathname :movitz #P"losp/los0.lisp"))
+(defvar *default-image-file* (asdf:system-relative-pathname :movitz  #P"los0-image"))
 
 (defvar *movitz-host-features* *features*
   "The *features* of the host implementation.")