(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")

(FILECREATED "17-Sep-87 19:37:29" {PHYLUM}<LISPUSERS>LYRIC>AUTOSAMEDIR.;2
 1551   

      changes to%:  (VARS AUTOSAMEDIRCOMS) (FNS AUTOSAMEDIR)

      previous date%: "15-Dec-85 13:02:11" {PHYLUM}<LISPUSERS>LYRIC>AUTOSAMEDIR.;1)


(* "
Copyright (c) 1987 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT AUTOSAMEDIRCOMS)

(RPAQQ AUTOSAMEDIRCOMS
 ((* ; "extension to SAMEDIR") (FILES (SYSLOAD FROM LISPUSERS) SAMEDIR) (INITVARS (AUTOSAMEDIRFLG)) (FNS AUTOSAMEDIR) (P (EDITV MAKEFILEFORMS F CHECKSAMEDIR (IF (NEQ (QUOTE AUTOSAMEDIR) (%## 0 2 1)) ((MBD (OR (AUTOSAMEDIR FILE) &))) NIL)) (UNMARKASCHANGED (QUOTE MAKEFILEFORMS) T)))
)



(* ; "extension to SAMEDIR")


(FILESLOAD (SYSLOAD FROM LISPUSERS) SAMEDIR)

(RPAQ? AUTOSAMEDIRFLG
 )
(DEFINEQ

(AUTOSAMEDIR

(LAMBDA (FILE) (* ; "Edited 17-Sep-87 19:33 by Rao") (LET (LOADEDFILE DIR) (* ;; "Ramana Rao - ensure that the getprop uses a symbol in the IL package.") (AND AUTOSAMEDIRFLG (SETQ LOADEDFILE (CDAR (GETPROP (CL:INTERN (CL:SYMBOL-NAME FILE) "IL") (QUOTE FILEDATES)))) (NEQ (DIRECTORYNAME T T) (SETQ DIR (PACKFILENAME (QUOTE HOST) (FILENAMEFIELD LOADEDFILE (QUOTE HOST)) (QUOTE DIRECTORY) (FILENAMEFIELD LOADEDFILE (QUOTE DIRECTORY))))) (/CNDIR DIR))))
)
)
(EDITV MAKEFILEFORMS F CHECKSAMEDIR (IF (NEQ (QUOTE AUTOSAMEDIR) (%## 0 2 1)) ((MBD (OR (AUTOSAMEDIR FILE) &))) NIL))
(UNMARKASCHANGED (QUOTE MAKEFILEFORMS) T)
(PUTPROPS AUTOSAMEDIR COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (828 1308 (AUTOSAMEDIR 838 . 1306)))))
STOP