(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "ROOMS" (USE "LISP" "XCL") (SHADOW CLROOM))
)

(IL:FILECREATED " 5-Dec-2020 16:12:54" 
IL:|{DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS.;3|
 2513   

      IL:|previous| IL:|date:| "17-Aug-90 12:28:18" 
IL:|{DSK}<Users>arunwelch>SKYDRIVE>DOCUMENTS>UNIX>LISP>LDE>ROOMS>MEDLEY-35>ROOMS.;1|)


; Copyright (c) 1987, 1988, 1990, 2020 by Venue & Xerox Corporation.  All rights reserved.

(IL:PRETTYCOMPRINT IL:ROOMSCOMS)

(IL:RPAQQ IL:ROOMSCOMS

          ((IL:P (PROVIDE "ROOMS")
                 (EXPORT '(*ROOMS-SYSTEM-DATE*)
                        "ROOMS"))
           (FILE-ENVIRONMENTS IL:ROOMS)
           (IL:COMS (IL:P (PROCLAIM '(GLOBAL *ROOMS-SYSTEM-DATE*)))
                  (IL:E (SETQ *ROOMS-SYSTEM-DATE* (IL:DATE)))
                  (IL:VARS *ROOMS-SYSTEM-DATE*))
           (IL:FILES (IL:SYSLOAD)
                  
                  (IL:* IL:|;;| "load Rooms modules")


                  IL:ROOMS-D IL:ROOMS-CORE IL:ROOMS-WINDOW-HIDER IL:ROOMS-GEOMETRY IL:ROOMS-TEXT 
                  IL:ROOMS-WINDOW-TYPES IL:ROOMS-BUTTONS IL:ROOMS-BIOS IL:ROOMS-SUITES 
                  IL:ROOMS-INTERACTIVE IL:ROOMS-BACKGROUNDS IL:ROOMS-PLACEMENT-EDITOR 
                  IL:ROOMS-OVERVIEW 

                  (IL:* IL:|;;| "load appropriate window types")


                  IL:ROOMS-MEDLEY-WINDOW-TYPES)
           (IL:P (EVAL-WHEN (LOAD)
                        (UNLESS *CURRENT-ROOM*
                            
                            (IL:* IL:|;;| "bootstrap")


                            (RESET))))))

(PROVIDE "ROOMS")

(EXPORT '(*ROOMS-SYSTEM-DATE*)
       "ROOMS")

(DEFINE-FILE-ENVIRONMENT IL:ROOMS
 :COMPILER :COMPILE-FILE
   :PACKAGE (DEFPACKAGE "ROOMS" (:USE "LISP" "XCL")
                   (:SHADOW CL:ROOM))
   :READTABLE "XCL")

(PROCLAIM '(GLOBAL *ROOMS-SYSTEM-DATE*))

(IL:RPAQQ *ROOMS-SYSTEM-DATE*
 " 5-Dec-2020 16:12:54")

(IL:FILESLOAD (IL:SYSLOAD)
       IL:ROOMS-D IL:ROOMS-CORE IL:ROOMS-WINDOW-HIDER IL:ROOMS-GEOMETRY IL:ROOMS-TEXT 
       IL:ROOMS-WINDOW-TYPES IL:ROOMS-BUTTONS IL:ROOMS-BIOS IL:ROOMS-SUITES IL:ROOMS-INTERACTIVE 
       IL:ROOMS-BACKGROUNDS IL:ROOMS-PLACEMENT-EDITOR IL:ROOMS-OVERVIEW IL:ROOMS-MEDLEY-WINDOW-TYPES)

(EVAL-WHEN (LOAD)
       (UNLESS *CURRENT-ROOM*

           (IL:* IL:|;;| "bootstrap")


           (RESET)))
(IL:PUTPROPS IL:ROOMS IL:COPYRIGHT ("Venue & Xerox Corporation" 1987 1988 1990 2020))
(IL:DECLARE\: IL:DONTCOPY
  (IL:FILEMAP (NIL)))
IL:STOP