[Mit-cadr-cvs] r319 - trunk/lisp/io

[rswindells at common-lisp.net]

Author: rswindells
Date: Sun Nov  4 03:49:40 2012
New Revision: 319

Log:
Add method for :PARSE-STRUCTURED-DIRECTORY-SPEC to UNIX-PATHNAME-MIXIN.

Fixes problems with mergeing pathname defaults on UNIX.

Modified:
   trunk/lisp/io/pathnm.lisp

Modified: trunk/lisp/io/pathnm.lisp
==============================================================================
--- trunk/lisp/io/pathnm.lisp	Sun Nov  4 03:48:17 2012	(r318)
+++ trunk/lisp/io/pathnm.lisp	Sun Nov  4 03:49:40 2012	(r319)
@@ -1509,6 +1509,8 @@
   (SETQ NAME (AND ( START END) (SUBSTRING NAMESTRING START END)))
   (VALUES ':UNSPECIFIC DIR NAME TYPE ':NEWEST))
 
+(DEFMETHOD (UNIX-PATHNAME-MIXIN :PARSE-STRUCTURED-DIRECTORY-SPEC) PATHNAME-PASS-THROUGH-SPEC)
+
 (DEFFLAVOR MULTICS-PATHNAME-MIXIN () (UNIX-PATHNAME-MIXIN))
 
 (DEFMETHOD (MULTICS-PATHNAME-MIXIN :DIRECTORY-DELIMITER-CHARACTER) () #/>)