(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
(FILECREATED "23-Aug-95 13:01:43" |{DSK}<lispcore>library>FILE-UPDATE.;3| 2268   

      |changes| |to:|  (FNS FIX-FILE)

      |previous| |date:| "23-Aug-95 10:54:34" |{DSK}<lispcore>library>FILE-UPDATE.;2|)


; Copyright (c) 1995 by Venue.  All rights reserved.

(PRETTYCOMPRINT FILE-UPDATECOMS)

(RPAQQ FILE-UPDATECOMS
       (
        (* |;;| "==================================")

        
        (* |;;| "                     M E D L E Y   3 . 0   F I L E - U P D A T E   U T I L I T Y")

        
        (* |;;| "")

        
        (* |;;| "Use the function FIX-FILE to make updated copies of any source files that have DATATYPE declarations in them.")

        
        (* |;;| "")

        
        (* |;;| "You will need to fix any BLOCKRECORD declarations by hand.")

        
        (* |;;| "==================================")

        (FNS FIX-FILE)))



(* |;;| "==================================")




(* |;;| "                     M E D L E Y   3 . 0   F I L E - U P D A T E   U T I L I T Y")




(* |;;| "")




(* |;;| 
"Use the function FIX-FILE to make updated copies of any source files that have DATATYPE declarations in them."
)




(* |;;| "")




(* |;;| "You will need to fix any BLOCKRECORD declarations by hand.")




(* |;;| "==================================")

(DEFINEQ

(FIX-FILE
  (LAMBDA (FILE)                                         (* \; "Edited 23-Aug-95 13:01 by jds")

    (* |;;| "Take a lisp source file, and re-dump it with  aall record declarations (NOT including BLOCKRECORDS) changed so they're compatible with Medley 3.0.")

    (* |;;| "This really only involves marking each record as changed, so the file manager re-dumps the pre-parsed version of the record declaration.")

    (LOAD FILE 'PROP)
    (LOADCOMP FILE 'PROP)
    (AND (FILEFNSLST FILE)
         (|for| RECNAME |in| (FILECOMSLST FILE 'RECORDS) |do| (MARKASCHANGED RECNAME
                                                                                 'RECORDS)))
    (MARKASCHANGED FILE 'FILES)
    (MAKEFILE FILE)))
)
(PUTPROPS FILE-UPDATE COPYRIGHT ("Venue" 1995))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (1424 2197 (FIX-FILE 1434 . 2195)))))
STOP