XEROX PATCHUP 2 4 1 PATCHUP 1 4 By: Danny Bobrow (Unsupported) PATCHUP is a LISPUSERS package which facilitates multiuser interaction on a system. It is designed to allow dumping of a patch file containing changes from a number of files. One calls: (PatchUp filesOrEditFlg patchFileName) [Function] If filesOrEditFlg = a list of file names, then changes which have been made to items on those files will be dumped on patchFileName. Also included will be any changes that have not been associated with any file. If filesOrEditFlg=T, then a COMS list of all changes in the system will be computed, and the user will be left in the editor editing this COMS list. Upon exiting from the editor, the revised COMS list will be used for dumping. If patchFileName is not given, then a file name of the form -.PATCH is used. For example, (PatchUp LOOPSFILES) could dump all changes made to items on LOOPSFILES to a file named 9-NOV-82-BOBROW.PATCH (LIST ((PAGE NIL (PAPERSIZE Letter FOLIOINFO (ARABIC ) STARTINGPAGE# 1) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY MODERN OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO (ARABIC )) (174 36 288 36) NIL) (HEADING NIL (HEADINGTYPE RUNNINGHEAD) (84 744 528 36) NIL) (TEXT NIL NIL (84 96 456 600) NIL))) (PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY GACHA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (163 756 288 36) NIL) (TEXT NIL NIL (0 72 612 648) NIL))) (PAGE NIL (PAPERSIZE NIL) (0 0 612 792) ((FOLIO NIL (PARALOOKS (QUAD CENTERED) CHARLOOKS (SUPERSCRIPT 0 INVISIBLE OFF SELECTPOINT OFF PROTECTED OFF SIZE 10 FAMILY GACHA OVERLINE OFF STRIKEOUT OFF UNDERLINE OFF EXPANSION REGULAR SLOPE REGULAR WEIGHT MEDIUM INVERTED OFF USERINFO NIL STYLE NIL) FORMATINFO NIL) (163 756 288 36) NIL) (TEXT NIL NIL (0 72 612 648) NIL)))))+È (È(ŠŠ8(ŠŠ8DÈÈ PAGEHEADING RUNNINGHEADMODERN MODERN MODERNLOGOMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  HRULE.GETFNMODERN  ¼ ÕäÜÓ$zº