mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 06:12:25 -08:00
Code Issues Projects Releases Packages Wiki Activity

Computation of pathnames in src/tests/config.lsp.in was broken under Windows

Browse source
This commit is contained in:
Juanjo Garcia-Ripoll 2012-04-17 23:08:06 +02:00 • committed by Juan Jose Garcia Ripoll
parent 57cd6e3066
commit e00ffc768a
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/tests/config.lsp.in
View file

@ -12,9 +12,13 @@
(setf *load-verbose* nil *load-print* nil)
(defvar *ecl-sources* "@top_srcdir@/")
(defvar *ecl-sources*
(loop for *default-pathname-defaults* in
'(#p"@top_srcdir@/" #p"../../" #p"../../src/")
when (probe-file "CHANGELOG")
return *default-pathname-defaults*))
(defvar *test-sources* "@top_srcdir@/tests/")
(defvar *test-sources* (merge-pathnames "tests/" *ecl-sources*))
(defvar *here* (merge-pathnames "@builddir@/"))
@ -48,7 +52,7 @@
(defvar *quicklisp-setup-file* (merge-pathnames "setup.lisp" *quicklisp-sandbox*))
(defvar *regressions-sources* "@top_srcdir@/tests/bugs/")
(defvar *regressions-sources* (merge-pathnames "bugs/" *test-sources*))
(defvar *regressions-sandbox* (merge-pathnames "regressions/" *here*))
@ -140,6 +144,8 @@
t)
(defun copy-directory (orig dest)
(setf orig (truename orig))
(print dest)
(loop for f in (directory (merge-pathnames *wild-inferiors* orig))
for f2 = (enough-namestring f orig)
for f3 = (merge-pathnames f2 dest)