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

[ggilley at common-lisp.net]

Author: ggilley
Date: Fri Nov 30 23:24:34 2012
New Revision: 379

Log:
get cold load working again

Modified:
   trunk/lisp/io/pathnm.lisp

Modified: trunk/lisp/io/pathnm.lisp
==============================================================================
--- trunk/lisp/io/pathnm.lisp	Fri Nov 30 16:31:05 2012	(r378)
+++ trunk/lisp/io/pathnm.lisp	Fri Nov 30 23:24:34 2012	(r379)
@@ -1541,11 +1541,19 @@
   ;; VER is :UNSPECIFIC unless TYP is :WILD, in which case VER is also :WILD.
   (VALUES ':UNSPECIFIC DIR NAM TYP VER))
 
-;(DEFMETHOD (UNIX-PATHNAME-MIXIN :NEW-PATHNAME) (&REST OPTIONS &AUX (PLIST (LOCF OPTIONS)))
+;; Differs from the default method in that if the type is :WILD
+;; we clobber the version to :WILD; otherwise we clobber the version to :UNSPECIFIC.
+;(DEFMETHOD (UNIX-PATHNAME-MIXIN :NEW-PATHNAME) (&REST OPTIONS &AUX (PLIST (LOCF OPTIONS)) -TYPE-)
+;  (SETQ -TYPE- (OR (GET PLIST ':TYPE) (PATHNAME-TYPE (OR (GET PLIST ':NAME) SELF))))
 ;  (LEXPR-FUNCALL #'MAKE-PATHNAME-1
-;		 ':NAME (OR (GET PLIST ':NAME) SELF)
-;		 ':VERSION (IF (EQ (OR (GET PLIST ':TYPE) (PATHNAME-TYPE (OR (GET PLIST ':NAME) SELF))) ':WILD) ':WILD ':UNSPECIFIC)
-;		 OPTIONS))
+;                 ':HOST (OR (GET PLIST ':HOST) HOST)
+;                 ':DEVICE DEVICE
+;                 (IF (LISTP DIRECTORY) ':STRUCTURED-DIRECTORY ':DIRECTORY)
+;                 DIRECTORY
+;                 (IF (LISTP NAME) ':STRUCTURED-NAME ':NAME) NAME
+;                 ':TYPE (OR (GET PLIST ':TYPE) TYPE)
+;                 ':VERSION (IF (EQ -TYPE- ':WILD) ':WILD ':UNSPECIFIC) 
+;                 OPTIONS))
 
 (DEFMETHOD (UNIX-PATHNAME-MIXIN :PARSE-DIRECTORY-SPEC) (SPEC)
   (COND ((STRINGP SPEC) (LIST (FUNCALL-SELF ':PARSE-COMPONENT-SPEC SPEC)))
@@ -1561,7 +1569,7 @@
         ((MEMQ SPEC '(NIL :UNSPECIFIC :WILD)) SPEC)
         (T (PATHNAME-DIRECTORY (USER-HOMEDIR HOST)))))
 
-;(DEFMETHOD (UNIX-PATHNAME-MIXIN :PARSE-STRUCTURED-DIRECTORY-SPEC) PATHNAME-PASS-THROUGH-SPEC)
+(DEFMETHOD (UNIX-PATHNAME-MIXIN :PARSE-STRUCTURED-DIRECTORY-SPEC) PATHNAME-PASS-THROUGH-SPEC)
 
 (DEFFLAVOR MULTICS-PATHNAME-MIXIN () (UNIX-PATHNAME-MIXIN))