mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixes for mingw32

Browse source
This commit is contained in:
jjgarcia 2004-11-23 08:57:37 +00:00
parent 63678eb25c
commit 29989cb461
2 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/lsp/config.lsp.in
View file

@ -69,10 +69,7 @@ Returns, as a string, the version of the software under which ECL runs."
;;
#-(and mingw32 msvc)
(si::pathname-translations "SYS" '(("**;*.*" "@ecldir@/**/*.*")))
#+mingw32
(si::pathname-translations "SYS"
`(("**;*.*" ,(merge-pathnames "**/*.*" (si::argv 0)))))
#+msvc
#+(or mingw32 msvc)
(si::pathname-translations "SYS"
`(("**;*.*" ,(merge-pathnames "**/*.*" (si::get-library-pathname)))))
#-msvc

2
src/lsp/top.lsp
View file

@ -386,7 +386,7 @@ value of this variable is non-NIL.")
(cond
((string= "-dir" option)
(setf (logical-pathname-translations "SYS")
`(("SYS:*.*" ,(concatenate 'string (pop-arg "-dir") "*.*")))))
`(("**;*.*" ,(concatenate 'string (pop-arg "-dir") "/**/*.*")))))
((string= "-compile" option)
(if (nth-value 3
(compile-file