[PATCH] Default pathname for systems
Richard M Kreuter <[email protected]>
| Newsgroups | gmane.lisp.cclan.general |
|---|---|
| Message-ID | <[email protected]> |
Hello, The pathname defaulting in defsystem looks like it's supposed to fail over to *default-pathname-defaults* under some circumstances, but an error is signalled when *load-truename* is nil. I think this tiny change makes the code do what was intended. This makes it slightly easier to call defsystem from the repl. Thanks, RmK Index: asdf.lisp =================================================================== RCS file: /cvsroot/cclan/asdf/asdf.lisp,v retrieving revision 1.103 diff -u -r1.103 asdf.lisp --- asdf.lisp 21 Jan 2007 14:09:51 -0000 1.103 +++ asdf.lisp 21 Jan 2007 17:24:37 -0000 @@ -939,8 +939,9 @@ :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)))))) ------------------------------------------------------------------------- Take Surveys. Earn Cash. Influence the Future of IT Join SourceForge.net's Techsay panel and you'll get the chance to share your opinions on IT & business topics through brief surveys - and earn cash http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV