From 712cebc4cb7138d9bb542a739bce01471e44fba3 Mon Sep 17 00:00:00 2001
From: Gary King <gwking@metabang.com>
Date: Tue, 6 Feb 2007 17:15:58 +0000
Subject: [PATCH] A patch from Richard Kreuter that allows pathname defaulting
 to work better with *load-truename* and *default-pathname-defaults*; this
 makes it easier to work with defsystems in the REPL.

---
 asdf.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index e9b07f8a..856c6816 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  $Revision: 1.104 $
+;;; This is asdf: Another System Definition Facility.  $Revision: 1.105 $
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
@@ -112,7 +112,7 @@
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "$Revision: 1.104 $")
+(defvar *asdf-revision* (let* ((v "$Revision: 1.105 $")
 			       (colon (or (position #\: v) -1))
 			       (dot (position #\. v)))
 			  (and v colon dot 
@@ -957,8 +957,9 @@ system."))
 				   :module (coerce-name ',name)
 				   :pathname
 				   (or ,pathname
-				       (pathname-sans-name+type
-					(resolve-symlinks  *load-truename*))
+				       (when *load-truename*
+					 (pathname-sans-name+type
+					  (resolve-symlinks  *load-truename*)))
 				       *default-pathname-defaults*)
 				   ',component-options))))))
   
-- 
GitLab