Changeset 10302


Ignore:
Timestamp:
11/01/05 00:56:31 (16 years ago)
Author:
piso
Message:

Load files relative to *LOAD-TRUENAME*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/tests/test-utilities.lisp

    r10287 r10302  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: test-utilities.lisp,v 1.7 2005-10-30 12:34:27 piso Exp $
     4;;; $Id: test-utilities.lisp,v 1.8 2005-11-01 00:56:31 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2626
    2727(unless (member "RT" *modules* :test #'string=)
    28   (load "rt-package.lisp")
    29   (load #+abcl (compile-file-if-needed "rt.lisp")
     28  (load (merge-pathnames "rt-package.lisp" *load-truename*))
     29  (load #+abcl (compile-file-if-needed (merge-pathnames "rt.lisp" *load-truename*))
    3030        ;; Force compilation to avoid fasl name conflict between SBCL and
    3131        ;; Allegro.
    32         #-abcl (compile-file "rt.lisp"))
     32        #-abcl (compile-file (merge-pathnames "rt.lisp" *load-truename*)))
    3333  (provide "RT"))
    3434
Note: See TracChangeset for help on using the changeset viewer.