Commit 5b3d1bd6 authored by Gary King's avatar Gary King
Browse files

return resolve-symlinks (ABL uses it)

parent fff0c816
......@@ -1267,6 +1267,10 @@ created with the same initargs as the original one.
key (cddr arglist))))))))
(aux key arglist)))
(defun resolve-symlinks (path)
#-allegro (truename path)
#+allegro (excl:pathname-resolve-symbolic-links path)
)
(defun determine-system-pathname (pathname pathname-supplied-p)
;; called from the defsystem macro.
......@@ -1283,8 +1287,7 @@ created with the same initargs as the original one.
(when *load-truename*
(pathname-sans-name+type
(if *resolve-symlinks*
#-allegro (truename *load-truename*)
#+allegro (excl:pathname-resolve-symbolic-links *load-truename*)
(resolve-symlinks *load-truename*)
*load-pathname*)))
*default-pathname-defaults*))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment