(FILECREATED "15-Dec-85 13:02:11" {FLOPPY}AUTOSAMEDIR.;1
 1530   

      changes to:  (FNS AUTOSAMEDIR)
		   (VARS AUTOSAMEDIRCOMS)
		   (ADVICE CHECKSAMEDIR)

      previous date: "29-Nov-85 12:25:49" {DSK}<USERFILES>LISPUSERS>AUTOSAMEDIR.;7)


(PRETTYCOMPRINT AUTOSAMEDIRCOMS)

(RPAQQ AUTOSAMEDIRCOMS
 ((* extension to SAMEDIR)
			(FILES (SYSLOAD FROM VALUEOF LISPUSERSDIRECTORIES)
			       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 VALUEOF LISPUSERSDIRECTORIES)
	   SAMEDIR)

(RPAQ? AUTOSAMEDIRFLG
 )
(DEFINEQ

(AUTOSAMEDIR

  [LAMBDA (FILE)                                             (* M.Model "29-Nov-85 11:54")

    (LET (LOADEDFILE DIR)
      (
AND
 AUTOSAMEDIRFLG [
SETQ
 LOADEDFILE (
CDAR
 (
GETPROP
 FILE (
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)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (821 1318 (AUTOSAMEDIR 831 . 1316)))))
STOP