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

(FILECREATED "12-Jun-90 18:10:37" |{DSK}<usr>local>lde>lispcore>internal>COPRFIX.;1|
 1909   

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

      |previous| |date:| "11-Jun-90 13:13:14" |{DSK}<users>sybalsky>COPRFIX.;3|)


; Copyright (c) 1990 by John Sybalsky.  All rights reserved.

(PRETTYCOMPRINT COPRFIXCOMS)

(RPAQQ COPRFIXCOMS
 ((FNS FIX-COPYRIGHT FIX-FILE-COPYRIGHT FIX-FILE QUALIFY-FIELDS)))
(DEFINEQ

(FIX-COPYRIGHT

  (LAMBDA (FILENAME)
    (LET ((CR (GETPROP FILENAME 'COPYRIGHT)))
         (COND
            (CR (RPLACA CR "Venue & Xerox Corporation"))
            (T (PUTPROP FILENAME 'COPYRIGHT (LIST "Venue" 1990)))))))

(FIX-FILE-COPYRIGHT

  (LAMBDA (FILE)
    (LOADFROM FILE NIL 'PROP)
    (FIX-COPYRIGHT
 FILE)
    (MARKASCHANGED FILE 'FILES)
    (APPLY* 'CLEANUP FILE)))

(FIX-FILE

  (LAMBDA (FILE RECORD-NAMES)
                          (* \; "Edited 11-Jun-90 17:49 by mitani")


    (* |;;| "Perform cleanup tasks on FILE.")


    (LOAD FILE 'PROP)
    (LOADCOMP FILE 'PROP)
    (FIX-COPYRIGHT
 FILE)
    (AND (FILEFNSLST FILE)
         (|for|
 RECNAME |in|
 RECORD-NAMES |do|
 (QUALIFY-FIELDS
 RECNAME FILE)))
    (MARKASCHANGED FILE 'FILES)
    (APPLY* 'CLEANUP FILE)))

(QUALIFY-FIELDS

  (LAMBDA (RECNAME FILE)
                                 (* \; "Edited 28-Sep-87 14:41 by bvm:")

    (APPLY* 'EDITFNS FILE `(LPQ F ((*ANY* FETCH |fetch| REPLACE |replace| FFETCH |ffetch| FREPLACE 
                                          |freplace| /REPLACE |/replace|)
                                   (*ANY* ,@(APPEND (RECORDFIELDNAMES RECNAME)))
                                   --)
                                2
                                (MBD ,RECNAME)
                                0 P))))
)
(PUTPROPS COPRFIX COPYRIGHT ("John Sybalsky" 1990))
(DECLARE\: DONTCOPY
  (FILEMAP (NIL (460 1834 (FIX-COPYRIGHT 470 . 697) (FIX-FILE-COPYRIGHT 699 . 859) (FIX-FILE 861 . 1291)
 (QUALIFY-FIELDS 1293 . 1832)))))
STOP