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

(filecreated "13-Jul-88 16:15:28" |{POGO:AISNORTH:XEROX}<LOOPSCORE>INTERNAL>LOOPS-CHANGECONTROL.;2|
 3034   

      |changes| |to:|  (vars loops-changecontrolcoms)

      |previous| |date:| "21-Jun-88 14:58:33" 
|{POGO:AISNORTH:XEROX}<LOOPSCORE>INTERNAL>LOOPS-CHANGECONTROL.;1|)


; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.

(prettycomprint loops-changecontrolcoms)

(rpaqq loops-changecontrolcoms
 ((files changecontrol)
                                (addvars (*change-control-dev-dirs* (:loops . "{pogo:}<loopscore>system>"
                                                                     )
                                                (:loopslibrary . "{pogo:}<loopscore>library>")
                                                (:loopsusers . "{pogo:}<loopscore>users>"))
                                       (*change-control-freeze-dirs* (:loops . "{pallas:}<loops>lyric>system>"
                                                                      )
                                              (:loopslibrary . "{pallas:}<loops>lyric>library>")
                                              (:loopsusers . "{pallas:}<loops>lyric>users>"))
                                       (*change-control-change-teams* (:loops . "James.pa, Fischer.pa, Dering.pasa"
                                                                       )
                                              (:loopslibrary . "James.pa, Fischer.pa, Dering.pasa")
                                              (:loopsusers . "James.pa, Fischer.pa, Dering.pasa"))
                                       (*change-control-development-leaders* (:loops . "Fischer.pa")
                                              (:loopslibrary . "Fischer.pa")
                                              (:loopsusers . "Fischer.pa")))))
(filesload changecontrol)

(addtovar *change-control-dev-dirs*
 (:loops . "{pogo:}<loopscore>system>")
                                    (:loopslibrary . "{pogo:}<loopscore>library>")
                                    (:loopsusers . "{pogo:}<loopscore>users>"))

(addtovar *change-control-freeze-dirs*
 (:loops . "{pallas:}<loops>lyric>system>")
                                       (:loopslibrary . "{pallas:}<loops>lyric>library>")
                                       (:loopsusers . "{pallas:}<loops>lyric>users>"))

(addtovar *change-control-change-teams*
 (:loops . "James.pa, Fischer.pa, Dering.pasa")
                                        (:loopslibrary . "James.pa, Fischer.pa, Dering.pasa")
                                        (:loopsusers . "James.pa, Fischer.pa, Dering.pasa"))

(addtovar *change-control-development-leaders*
 (:loops . "Fischer.pa")
                                               (:loopslibrary . "Fischer.pa")
                                               (:loopsusers . "Fischer.pa"))
(putprops loops-changecontrol copyright ("Xerox Corporation" 1988))
(declare\: dontcopy
  (filemap (nil)))
stop