6 Aug 2004 14:10
asdf: sans version
Pascal J. Bourguignon <pjb <at> informatimago.com>
2004-08-06 12:10:43 GMT
2004-08-06 12:10:43 GMT
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
<at> <at> -130,8 +130,8 <at> <at>
(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.
(Continue reading)




RSS Feed