;;; -*- Mode:Common-Lisp; Package:USER; Fonts:(COURIER HL12B HL12BI); Base:10 -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
;;;Technical Data and Computer Software clause at 52.227-7013.
;;;
;;;                     TEXAS INSTRUMENTS INCORPORATED.
;;;                              P.O. BOX 2909
;;;                           AUSTIN, TEXAS 78769
;;;                                 MS 2151
;;;
;;; Copyright (C) 1985, Texas Instruments Incorporated. All rights reserved.
;;; Copyright (c) 1984, Texas Instruments Incorporated.  All Rights Reserved.
;;; Copyright (C) 1986, Texas Instruments Incorporated. All rights reserved.

(when (not (find-package 'gloss))
    (make-package 'Gloss :nicknames 'glossary :use '(lisp ticl zlc) :size 500))

(DEFSYSTEM Glossary
  (:name "Glossary")
  (:short-name "Gloss")
  (:pathname-default "sys:Public.GLOSSARY;")
  (:warnings-pathname-default "sys:cwarns;glossary.lisp")
  (:patchable "SYS:PATCH.GLOSSARY;" PATCH)
;;  (:initial-status :RELEASED)
  
  (:module BASICS "basics")		   ;1Required functions and declarations*
  (:module MACROS "macros")		   ;1Defstructs and macros that we use*
  (:module INTERNAL "internal")		   ;1Glossary flavors and methods*
  (:module DISPLAY "display")		   ;1Display flavors and methods*
  (:module INITIALIZATIONS "initializations")	   ;1Last file loaded*
  (:module MAIN-GLOSSARY "main-gloss")	   ;1Default data file (glossary entries)*
  (:compile-load      BASICS)
  (:compile-load      MACROS)
  (:compile           MAIN-GLOSSARY)		   ;1Don't load to save some space*
  (:compile-load      INTERNAL (:fasload basics macros) (:fasload BASICS MACROS))
  (:compile-load      DISPLAY (:fasload  internal) (:fasload INTERNAL))
  (:compile-load      INITIALIZATIONS (:fasload DISPLAY) (:fasload  DISPLAY)))