;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*-
;;; Patch file for MIT version 2.5
;;; Reason:
;;;  fix :pathname-as-directory for lmfs-pathname
;;; Written 21-Apr-86 15:57:34 by GJC at site MIT-LCS
;;; while running on MIT-RTS-0 from band 1
;;; with Experimental System 110.179, Experimental Lambda-Diag 7.3, Experimental Local-File 68.5, Experimental FILE-Server 18.3, Experimental Unix-Interface 9.1, Experimental Object Lisp 3.1, Experimental ZMail 65.13, Experimental MIT 2.4, Experimental MEDIUM-RESOLUTION-COLOR 1.0, Experimental Tape 1.0, microcode 1482.



; From modified file Z: >LMI-SYS>RELEASE-3>IO>FILE>PATHST.LISP.208 at 21-Apr-86 15:57:34
#8R FILE-SYSTEM#:
(COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "FILE-SYSTEM")))
  (COMPILER::PATCH-SOURCE-FILE "SYS: IO; FILE; PATHST  "

(DEFMETHOD (LMFS-PATHNAME-MIXIN :PATHNAME-AS-DIRECTORY) ()
  (SEND SELF :NEW-PATHNAME
	     :RAW-DIRECTORY (IF (EQ DIRECTORY :ROOT)
				 NAME
			       (APPEND (IF (CONSP DIRECTORY) DIRECTORY
					 (NCONS DIRECTORY))
				       (NCONS NAME)))
	     :NAME :UNSPECIFIC
	     :TYPE :UNSPECIFIC
	     :VERSION :UNSPECIFIC))

))