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