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.*

;;  8/28/87 DNG - Added packages BN, RPC, NFS, and LX.
;; 10/16/87 DNG - Added package MACINTOSH.
;; 10/21/87 DNG - Added package MICRONET.
;; 11/30/87 DNG - Don't need packages BN and LX anymore.
;;  4/11/89 KTN - Added packages TICLOS and CLOS. Initial-packages file not loaded on microExplorer.
;;  4/24/89 JLM - Added "COMMON-LISP" and "COMMON-LISP-USER" for Release 6.

(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")
				     :SIZE 1009. :USE ("TICL") :PREFIX-NAME "LISP"))
	       ("COMMON-LISP" . (:NICKNAMES ("CL") :SIZE 800. :PREFIX-NAME "COMMON-LISP"))
	       ("TICL" . (:NICKNAMES ("EECL") :SIZE 719. :USE NIL))
	       ("SYSTEM" . (:NICKNAMES ("SYS" "SI" "SYSTEM-INTERNALS")  :SIZE 11273.
				       :PREFIX-NAME "SYS" :AREA *KERNEL-SYMBOL-AREA*))
	       ("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 *COMPILER-SYMBOL-AREA* :Prefix-Name "COMPILER"))
	       ("USER" . (:SIZE 2000. :USE ("ZLC" "TICL" "LISP") :Prefix-Name "USER" :AREA *USER-SYMBOL-AREA*))
	       ("COMMON-LISP-USER" . (:SIZE 2000. :USE ("COMMON-LISP") :NICKNAMES ("CL-USER") 
					    :PREFIX-NAME "CL-USER" :AREA *USER-SYMBOL-AREA*)) 
	       ("FORMAT" . (:size 400 :use ("LISP" "TICL") :Prefix-Name "FORMAT" :AREA *KERNEL-SYMBOL-AREA*))
	       ("FILE-SYSTEM" . (:SIZE 2500. :USE ("SYS" "TICL" "LISP") :NICKNAMES ("FS") :PREFIX-NAME "FS"))
	       ("TV" . (:SIZE 4500. :USE ("LISP" "TICL" "SYS") :Prefix-Name "TV" :AREA *KERNEL-SYMBOL-AREA*))
	       ("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 *KERNEL-SYMBOL-AREA*))
	       ("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"))
	       
	       1;; The following two added temporarily for the addin-board prototype band:*
	       
	       #+LX ("BN" . (:size 400. :use ("LISP" "TICL") :nicknames ("BUSNET") :prefix-name "BN"))
	       #+LX ("LX" . (:size 700. :use ("LISP" "TICL")))
	       
	       1;; The following added for the microExplorer:*
	       
	       ("REMOTE-PROCEDURE-CALL" . ( :size 700.  :use ("LISP" "TICL")
					   :nicknames ("RPC" "Remote Procedure Call") :prefix-name "RPC"))
	       ("NETWORK-FILE-SYSTEM" . ( :size 900. :use ("LISP" "TICL")
					 :nicknames ("NFS" "Network File System") :prefix-name "NFS"))
	       ("MACINTOSH" . (:size 600. :use ("LISP" "TICL") :nicknames ("MAC" "MAC-WINDOWS")
				     :prefix-name "MAC"))
	       ("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")
	       ))