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

The logical hostname SYS: should be associated to a fully resolved pathname.

Browse source
This commit is contained in:
jjgarcia 2004-12-01 13:23:39 +00:00
parent 08e20ae880
commit 7b2b3046f5
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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")
`(("**;*.*" ,(concatenate 'string (pop-arg "-dir") "/**/*.*")))))
`(("**;*.*" ,(merge-pathnames "**/*.*" (truename (pop-arg "-dir")))))))
((string= "-compile" option)
(if (nth-value 3
(compile-file