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

(FILECREATED "13-Jul-88 16:20:03" |{POGO:AISNORTH:XEROX}<LOOPSCORE>INTERNAL>LOOPSSITE.;2|
 3872   

      changes to%:  (VARS LOOPSSITECOMS)
                    (FNS MakeLoopsForm)

      previous date%: "30-Oct-87 09:21:08" |{POGO:AISNORTH:XEROX}<LOOPSCORE>INTERNAL>LOOPSSITE.;1|)


(* "
Copyright (c) 1985, 1986, 1987, 1988 by Xerox Corporation.  All rights reserved.
")

(PRETTYCOMPRINT LOOPSSITECOMS)

(RPAQQ LOOPSSITECOMS
 (

(* ;;; "This is the Xerox AI Systems LOOPSSITE file.")


                      (VARS (LOOPSDIRECTORY "{POGO:}<LOOPSCore>System>")
                            (LOOPSLIBRARYDIRECTORY "{POGO:}<LOOPSCore>Library>")
                            (LOOPSUSERSDIRECTORY "{POGO:}<LOOPSCore>Users>")
                            (LOOPSUSERSRULESDIRECTORY "{POGO:}<LOOPSCore>Users>Rules>")
                            (LOOPSINTERNALDIRECTORY "{POGO:}<LOOPSCore>Internal>")
                            (LoadLoopsForms NIL)
                            (OptionalLispuserFiles NIL))
                      

(* ;;; "Set up for Lafite reporting.")


                      (ADDVARS (LAFITESPECIALFORMS ("Loops Report" (FUNCTION MakeLoopsForm)
                                                          
                                                         "A form to report a Loops bug or suggestion"
                                                          )))
                      (VARS (LAFITEFORMSMENU NIL))
                      (FNS MakeLoopsForm)
                      

(* ;;; "Updating distributions")


                      [VARS (LOOPS-DISTRIBUTION-DIRECTORIES '("{PHYLUM}<LOOPS>LYRIC>SOURCES>" 
                                                                    "{NB:}<LOOPS>LYRIC>SOURCES>"]
                      (FNS UPDATE-LOOPS-DISTRIBUTION)))



(* ;;; "This is the Xerox AI Systems LOOPSSITE file.")



(RPAQ LOOPSDIRECTORY
 "{POGO:}<LOOPSCore>System>")

(RPAQ LOOPSLIBRARYDIRECTORY
 "{POGO:}<LOOPSCore>Library>")

(RPAQ LOOPSUSERSDIRECTORY
 "{POGO:}<LOOPSCore>Users>")

(RPAQ LOOPSUSERSRULESDIRECTORY
 "{POGO:}<LOOPSCore>Users>Rules>")

(RPAQ LOOPSINTERNALDIRECTORY
 "{POGO:}<LOOPSCore>Internal>")

(RPAQQ LoadLoopsForms
 NIL)

(RPAQQ OptionalLispuserFiles
 NIL)



(* ;;; "Set up for Lafite reporting.")



(ADDTOVAR LAFITESPECIALFORMS
 ("Loops Report" (FUNCTION MakeLoopsForm)
                                    "A form to report a Loops bug or suggestion"))

(RPAQQ LAFITEFORMSMENU
 NIL)
(DEFINEQ

(MakeLoopsForm

  [LAMBDA NIL
                                                (* ; "Edited 13-Jul-88 16:17 by raf")


    (DECLARE (GLOBALVARS MAKESYSDATE LoopsVersion LoopsDate))
    (RESETVAR MAKESYSDATE (CL:SOFTWARE-VERSION)
     (MAKEXXXSUPPORTFORM "Loops" "LoopsSupport.aisnorth" (CONCAT LoopsVersion " of " LoopsDate])
)



(* ;;; "Updating distributions")



(RPAQQ LOOPS-DISTRIBUTION-DIRECTORIES
 ("{PHYLUM}<LOOPS>LYRIC>SOURCES>" "{NB:}<LOOPS>LYRIC>SOURCES>"))
(DEFINEQ

(UPDATE-LOOPS-DISTRIBUTION

  [LAMBDA NIL
                                                (* ; "Edited 30-Oct-87 09:20 by smL")


    (FOR TARGET-DIR IN LOOPS-DISTRIBUTION-DIRECTORIES BIND (SOURCE-DIR _ (PACKFILENAME.STRING
                                                                          'NAME
                                                                          '*
                                                                          'EXTENSION "dfasl"
                                                                          'BODY LOOPSDIRECTORY))
         DO
         (CL:FORMAT T "~%%Updating distribution on directory ~A" TARGET-DIR)
         (COPYFILES SOURCE-DIR TARGET-DIR '(TERSE])
)
(PUTPROPS LOOPSSITE COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988))
(DECLARE%: DONTCOPY
  (FILEMAP (NIL (2550 2895 (MakeLoopsForm 2560 . 2893)) (3044 3776 (UPDATE-LOOPS-DISTRIBUTION 3054 . 
3774)))))
STOP