1;-*- *cold-load:t; 1Mode:Common-Lisp; Package:SYSTEM-INTERNALS; Base:10; Fonts:(CPTFONT CPTFONTB) -*-

;;;                           RESTRICTED RIGHTS LEGEND

;;;Use, duplication, or disclosure by the Government is subject to
;;;restrictions as set forth in subdivision (c)(1)(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) 1986-1989 Texas Instruments Incorporated. All rights reserved.*

;;  3/3/89 DNG - Added "TICLOS" and "CLOS" packages for release 6.  Also adjusted the size of the LISP package.
;;  4/24/89 JLM - Added "COMMON-LISP" and "COMMON-LISP-USER" for Release 6.
;;  4/28/89 jlm - Fixed use list for COMMON-LISP

(Defconstant INITIAL-PACKAGES
	     '(
	       ("KEYWORD" .  (:NICKNAMES ("") :SIZE 5000. :USE NIL
					 :AFTER-INTERN-DAEMON EXTERNALIZE-ALL-SYMBOLS :Prefix-Name ""))
	       ("LISP" . (:NICKNAMES ("CLI" "COMMON-LISP-INCOMPATIBLE" "COMMON-LISP-GLOBAL")	;jlm 4/24/89
				     :SIZE 800. :USE ("TICL") :PREFIX-NAME "LISP"))
	       ("COMMON-LISP" . (:NICKNAMES ("CL") :USE nil :size 800. :PREFIX-NAME "COMMON-LISP"))	;jlm 4/28/89
	       ("TICL" . (:NICKNAMES ("EECL") :SIZE 719. :USE NIL))
	       ("SYSTEM" . (:NICKNAMES ("SYS" "SI" "SYSTEM-INTERNALS")  :SIZE 11273.
				       :PREFIX-NAME "SYS" :AREA NR-SYM))
	       ("ZLC" . (:SIZE 307. :USE ("LISP" "TICL") :Prefix-Name "ZLC"))
	       ("GLOBAL" . (:NICKNAMES ("ZETALISP" "ZL" "ZETALISP-GLOBAL") :SIZE 1973. :USE NIL :Prefix-Name "GLOBAL"))
	       ("COMPILER" . (:SIZE 2800. :NICKNAMES ("COMPILER2") 
				    :USE ("ZLC" "TICL" "LISP" "SYS") :AREA NR-SYM :Prefix-Name "COMPILER"))
	       ("USER" . (:SIZE 2000. :USE ("ZLC" "TICL" "LISP") :Prefix-Name "USER" :AREA NR-SYM))
	       ("COMMON-LISP-USER" . (:NICKNAMES ("CL-USER") :SIZE 2000.
						 :USE ("COMMON-LISP") :PREFIX-NAME "CL-USER" :AREA NR-SYM))
	       ("FORMAT" . (:size 400 :use ("LISP" "TICL") :Prefix-Name "FORMAT" :AREA NR-SYM))
	       ("FILE-SYSTEM" . (:SIZE 2500. :USE ("SYS" "TICL" "LISP") :NICKNAMES ("FS") :PREFIX-NAME "FS"))
	       ("TV" . (:SIZE 4500. :USE ("LISP" "TICL" "SYS") :Prefix-Name "TV" :AREA NR-SYM))
	       ("W" . (:SIZE 1000. :USE ("LISP" "TICL" "SYS" "TV") :Prefix-Name "W")) 
	       ("EH" . (:SIZE 1500. :USE ("LISP" "TICL" "SYS") :NICKNAMES ("DBG" "DEBUGGER")
			      :Prefix-Name "EH" :AREA NR-SYM))
	       ("TIME" . (:SIZE 1000. :Prefix-Name "TIME"))
	       ("FONTS" . (:AUTO-EXPORT-P T :USE ("LISP" "TICL") :Prefix-Name "FONTS" :SHADOW ("SEARCH")))
	       ("MATH" . (:SIZE 150. :Prefix-Name "MATH"))
	       ("NAME" . (:SIZE 1500. :USE ("TICL" "LISP") :Prefix-Name "NAME"))
	       ;;("HOST" . (:SIZE 1500. :USE ("TICL" "LISP") :Prefix-Name "HOST"))
	       ;;("NET-CONFIG" . (:USE ("SYS" "TICL" "LISP") :Prefix-Name "NET-CONFIG"))
	       ("NET" . (:SIZE 1000. :USE ("SYS" "TICL" "LISP") :Prefix-Name "NET" :NICKNAMES ("HOST")))
	       ("ZWEI" . (:USE ("LISP" "TICL") :SIZE 6400. :Prefix-Name "ZWEI"))
	       
	       ("MICRONET" . (:size 450 :use ("TICL" "LISP" "SYSTEM")
				    :nicknames ("ADDIN" "ADD" "AC" "ADDIN-COMM")
				    :prefix-name "ADD"))
	       ("TICLOS" :size 1260 :use ("TICL" "LISP") :prefix-name "TICLOS")
	       ("CLOS" :size 166 :use ("LISP") :prefix-name "CLOS")
	       
	       ))