asdf: sans version

In pathname-sans-name+type, I assume you want it sans version either.
Otherwise you might get surprising results in implementations
supporting version numbers.


$ cvs diff -Nautwb asdf.lisp
Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.86
diff -a -u -t -w -b -r1.86 asdf.lisp
--- asdf.lisp	19 Jul 2004 21:18:07 -0000	1.86
+++ asdf.lisp	6 Aug 2004 12:05:38 -0000
@@ -130,8 +130,8 @@
 
 (defun pathname-sans-name+type (pathname)
   "Returns a new pathname with same HOST, DEVICE, DIRECTORY as PATHNAME,
-and NIL NAME and TYPE components"
-  (make-pathname :name nil :type nil :defaults pathname))
+and NIL NAME, TYPE and VERSION components"
+  (make-pathname :name nil :type nil :versoin nil :defaults pathname))
 
 (define-modify-macro appendf (&rest args) 
                      append "Append onto list") 

-- 
__Pascal Bourguignon__                     http://www.informatimago.com/

Nobody can fix the economy.  Nobody can be trusted with their finger
on the button.  Nobody's perfect.  VOTE FOR NOBODY.


-------------------------------------------------------
This SF.Net email is sponsored by OSTG. Have you noticed the changes on
Linux.com, ITManagersJournal and NewsForge in the past few weeks? Now,
one more big change to announce. We are now OSTG- Open Source Technology
Group. Come see the changes on the new OSTG site. www.ostg.com