(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