(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED " 1-Feb-98 09:35:21" ("compiled on " |{DSK}disk2>jdstools>lc3>lispcore3.0>internal>library>CHANGECONTROL.;1|) "31-Jan-98 19:10:48" |bcompl'd| |in| "Medley 31-Jan-98 ..." |dated| "31-Jan-98 19:12:50") (FILECREATED " 9-Aug-90 19:39:26" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>CHANGECONTROL.;5| 13413 |changes| |to:| (VARS *CHANGE-CONTROL-DEV-DIRS* *CHANGE-CONTROL-FREEZE-DIRS*) |previous| |date:| "27-Jul-90 13:58:46" |{PELE:MV:ENVOS}INTERNAL>LIBRARY>CHANGECONTROL.;4|) CHANGECONTROL :D8 (P 12 FILE P 10 MSG P 9 DATED-FILES P 8 FILE P 5 COMPAREFN P 4 DEV-LEADER P 3 CHANGETEAM P 2 FREEZEDIR P 1 DEVDIR P 0 COMFILE I 2 DETAILS? I 1 TYPE I 0 FILES F 13 LAFITEEDITORFONT F 14 *CHANGE-CONTROL-DEV-DIRS* F 15 *CHANGE-CONTROL-FREEZE-DIRS* F 16 *CHANGE-CONTROL-CHANGE-TEAMS* F 17 *CHANGE-CONTROL-DEVELOPMENT-LEADERS* F 18 *CHANGE-CONTROL-COMPARISON-FUNCTIONS* F 19 *CC-SEE-DETAILS*) Ì ggg AWAWAW 'AW"'AW$µg@!Nµ‚±ýO ` o` @ Oµ‚±o` ¿` o@oLohoOO hoO o hddgWh _dd Éjghi Hj OH Oo W&¤B¢±òggOho ±Û¥N_¿h†N_¿N¾OOhIh OhIh g h _¿±þ¦O_¿hˆO_¿O_¿O` ¿o` ¿H ¿H ¿oH ¿H ¿H ¿gJghgO gIgO hdHlM¿±þ[O ¿o@oKohoOO hoO ooooo hddgWh _dkjg O ggOho (713 ADD.PROCESS 686 TEDIT.NEXT 679 TEDIT.SETSEL 664 OPENTEXTSTREAM 645 CONCAT 614 CL:FORMAT 599 CL:FORMAT 581 FULLUSERNAME 558 LAFITE.SENDMESSAGE 539 PACKFILENAME 521 PACKFILENAME 495 TERPRI 488 TERPRI 481 PRIN1 469 TERPRI 462 TERPRI 455 PRIN1 439 PRIN1 400 \\NCONC2 392 GETFILEINFO 382 FINDFILE 371 FINDFILE 339 ADD.PROCESS 304 TEDIT.LOOKS 292 TEDIT.INCLUDE 284 SETFILEPTR 277 TEDIT.SETSEL 256 TEXTOBJ 247 OPENTEXTSTREAM 228 CONCAT 217 CL:FORMAT 202 CL:FORMAT 184 FULLUSERNAME 162 TERPRI 151 PRIN1 123 PRIN1 108 FRESHLINE 62 LAFITEMODE 48 LAFITEMODE 19 OPENSTREAM) (696 QUOTE 691 \\SENDMESSAGE 674 LEFT 653 FONT 532 BODY 526 DIRECTORY 513 BODY 507 VERSION 501 DIRECTORY 450 PROMPTWINDOW 434 PROMPTWINDOW 387 CREATIONDATE 322 QUOTE 317 \\SENDMESSAGE 269 RIGHT 261 TEXTOBJ 236 FONT 157 PROMPTWINDOW 146 PROMPTWINDOW 118 PROMPTWINDOW 103 PROMPTWINDOW 78 COMPARESOURCES 14 NEW 9 BOTH 4 {NODIRCORE}) ( 706 ((QUOTE NAME) (QUOTE MESSAGESENDER)) 639 " or ref to AR test case used<< " 634 " Tests: >>location of regression test/script, test case itself," 629 " Patch File: >>location of patch file, or note that it's whole-file<<" 624 " Changes: >>Explanation of change<<" 619 " ARs fixed: >>list of AR numbers<<" 605 "~{~5t~A (~A)~%~}" 587 "~%~%Candidate files:~% ~A (~A)~%" 576 " cc: " 570 " To: " 564 "Subject: Change Control for " 475 "- - - - - - - - - - - - - - - - - - - - - -" 445 " " 332 ((QUOTE NAME) (QUOTE MESSAGESENDER)) 299 (FAMILY GACHA SIZE 10 WEIGHT MEDIUM SLOPE REGULAR) 222 "Comparison of Sources: " 208 "~{~5t~A (~A)~%~}" 190 "~%~%Candidate files:~% ~A (~A)~%" 179 " cc: " 173 " To: " 167 "Subject: Change Control Detail for " 141 "Done." 113 "Comparing sources...") (PRETTYCOMPRINT CHANGECONTROLCOMS) (RPAQQ CHANGECONTROLCOMS ((* |;;;| "Automate the process of change-control submission") (* |;;| "Variables which control change control:") (* |;;| "*CHANGE-CONTROL-DEV-DIRS* an AList of item-type -> dir name") (* |;;| "*CHANGE-CONTROL-FREEZE-DIRS* likewise for freeze dirs") (* |;;| "*CHANGE-CONTROL-CHANGE-TEAMS* names to send change control submissions to") (FILES COMPARESOURCES) ( VARS *CHANGE-CONTROL-DEV-DIRS* *CHANGE-CONTROL-FREEZE-DIRS* *CHANGE-CONTROL-CHANGE-TEAMS* *CHANGE-CONTROL-DEVELOPMENT-LEADERS* *CHANGE-CONTROL-COMPARISON-FUNCTIONS*) (INITVARS ( *CC-SEE-DETAILS* NIL)) (FNS CHANGECONTROL) (COMMANDS "cc"))) (FILESLOAD COMPARESOURCES) (RPAQQ *CHANGE-CONTROL-DEV-DIRS* ((NIL . "{pele:mv:Envos}1.2>new>") (SOURCE . "{pele:mv:Envos}1.2>new>") (SOURCES . "{pele:mv:Envos}1.2>new>") (:SOURCES . "{pele:mv:Envos}1.2>new>") (:SOURCE . "{pele:mv:Envos}1.2>new>") (LIB . "{pele:mv:Envos}1.2>new>") (LIBRARY . "{pele:mv:Envos}1.2>new>") (:LIB . "{pele:mv:Envos}1.2>new>") (:LIBRARY . "{pele:mv:Envos}1.2>new>") (PCE . |{ERIS}internal>Library>|) (:PCE . |{ERIS}internal>Library>|) (ROOMS . |{Pogo:AISNorth}Medley>Sources>|) (:ROOMS . |{Pogo:AISNorth}Medley>Sources>|))) (RPAQQ *CHANGE-CONTROL-FREEZE-DIRS* ((NIL . "{pele:mv:envos}1.2>sources>") (SOURCE . "{pele:mv:envos}1.2>sources>") (SOURCES . "{pele:mv:envos}1.2>sources>") (:SOURCES . "{pele:mv:envos}1.2>sources>") (:SOURCE . "{pele:mv:envos}1.2>sources>") (LIB . "{pele:mv:envos}1.2>library>") (LIBRARY . "{pele:mv:envos}1.2>library>") (:LIB . "{pele:mv:envos}1.2>library>") (:LIBRARY . "{pele:mv:envos}1.2>library>") (ROOMS . |{Pallas:AISNorth}Medley>Sources>|) (:ROOMS . |{Pallas:AISNorth}Medley>Sources>|))) (RPAQQ *CHANGE-CONTROL-CHANGE-TEAMS* ((NIL GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") ( SOURCE GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (SOURCES GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (:SOURCES GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (:SOURCE GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (LIB GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (LIBRARY GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (:LIB GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (:LIBRARY GV "James.envos, Sybalsky.envos" NS "MedleyDev:MV:Envos") (ROOMS GV "James.envos, Kohlsaat.envos, RClarke.envos, Harada.envos" NS "James:AISNorth, Kohlsaat:AISNorth, RClarke:AISNorth, Harada:AISNorth") (:ROOMS GV "James.envos, Kohlsaat.envos, RClarke.envos, Harada.envos" NS "James:AISNorth, Kohlsaat:AISNorth, RClarke:AISNorth, Harada:AISNorth"))) (RPAQQ *CHANGE-CONTROL-DEVELOPMENT-LEADERS* ((NIL GV "Sybalsky.envos" NS "") (SOURCE GV "Sybalsky.envos" NS "") (SOURCES GV "Sybalsky.envos" NS "") (:SOURCES GV "Sybalsky.envos" NS "") ( :SOURCE GV "Sybalsky.envos" NS "") (LIB GV "Sybalsky.envos" NS "") (LIBRARY GV "Sybalsky.envos" NS "") (:LIB GV "Sybalsky.envos" NS "") (:LIBRARY GV "Sybalsky.envos" NS "") (ROOMS GV "Cutting.pa" NS "Cutting:PARC") (:ROOMS GV "Cutting.pa" NS "Cutting:PARC"))) (RPAQQ *CHANGE-CONTROL-COMPARISON-FUNCTIONS* NIL) (RPAQ? *CC-SEE-DETAILS* NIL) (DEFCOMMAND "cc" (FILE-OR-FILES &OPTIONAL TYPE) (CHANGECONTROL FILE-OR-FILES (CL:INTERN (STRING TYPE) (QUOTE INTERLISP)))) (PUTPROPS CHANGECONTROL COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1989 1990)) NIL