Commit 2494afe3 authored by Kevin Rosenberg's avatar Kevin Rosenberg

Add resolve-symlinks to get "truename" of a system

parent 96ae6c9f
;;; This is asdf: Another System Definition Facility. $Revision: 1.43 $
;;; This is asdf: Another System Definition Facility. $Revision: 1.44 $
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
......@@ -88,7 +88,7 @@
(in-package #:asdf)
;;; parse the cvs revision into something that might be vaguely useful.
(defvar *asdf-revision* (let* ((v "$Revision: 1.43 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.44 $")
(colon (position #\: v))
(dot (position #\. v)))
(and v colon dot
......@@ -735,7 +735,8 @@ system."))
:module (coerce-name ',name)
:pathname
(or ,pathname
(pathname-sans-name+type *load-truename*)
(pathname-sans-name+type
(resolve-symlinks *load-truename*))
*default-pathname-defaults*)
',component-options))))))
......@@ -837,6 +838,14 @@ Returns the new tree (which probably shares structure with the old one)"
ret)))
#-(or allegro)
(defun resolve-symlinks (path)
(truename path))
#+allegro
(defun resolve-symlinks (path)
(excl:pathname-resolve-symbolic-links path))
;;; optional extras
;;; run-shell-command functions for other lisp implementations will be
......
cl-asdf (1.44-1) unstable; urgency=low
* New upstream version
-- Kevin M. Rosenberg <kmr@debian.org> Tue, 17 Sep 2002 12:24:27 -0600
cl-asdf (1.43-1) unstable; urgency=low
* New upstream version
......
Markdown is supported
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