[Mit-cadr-cvs] r305 - trunk/lisp/sys

[rswindells at common-lisp.net]

Author: rswindells
Date: Sat May  5 10:31:47 2012
New Revision: 305

Log:
Remove XEROX definitions, rename fonts, move package definition files to
SYS:COLD; and special case for RDTBL.

Modified:
   trunk/lisp/sys/sysdcl.lisp

Modified: trunk/lisp/sys/sysdcl.lisp
==============================================================================
--- trunk/lisp/sys/sysdcl.lisp	Sat May  5 10:10:59 2012	(r304)
+++ trunk/lisp/sys/sysdcl.lisp	Sat May  5 10:31:47 2012	(r305)
@@ -51,12 +51,12 @@
 		 "SYS: SYS; LTOP"
 		 "SYS: WINDOW; COLD"
 		 "SYS: IO; PRINT"
+		 "SYS: IO; DEBUG"
 		 "SYS: SYS; QEV"
 		 "SYS: SYS; QFASL"
-#-XEROX		 "SYS: IO; MINI"
+		 "SYS: IO; MINI"
 		 "SYS: IO; QIO"
 		 "SYS: SYS; QRAND"
-		 "SYS: IO; RDTBL"
 		 "SYS: IO; READ"
 		 "SYS: SYS; SGFCTN"
 		 "SYS: SYS2; ADVISE"
@@ -93,15 +93,17 @@
 		 "SYS: SYS2; UNFASL"
 		 "SYS: IO; UNIBUS"
 		 "SYS: IO1; XGP"))
+  (:MODULE RDTBL "SYS: IO; RDTBL")
   (:COMPILE-LOAD DEFS)
   (:COMPILE-LOAD MAIN (:FASLOAD DEFS))
+  (:FASLOAD RDTBL)
   (:COMPILE-LOAD METH (:FASLOAD DEFS))
   (:COMPILE-LOAD CLASS (:FASLOAD DEFS) (:FASLOAD METH)))
 
 (DEFSYSTEM FONTS
   (:PACKAGE FONTS)
   (:PATHNAME-DEFAULT "SYS: FONTS;")
-  (:FASLOAD ("TVFONT" "CPTFNB" "BIGFNT" "TINY" "5X5"
+  (:FASLOAD ("TVFONT" "CPTFONTB" "BIGFNT" "TINY" "5X5"
 	     "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS"
 	     "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI"
 	     "TR8" "TR8I" "TR8B" "TR10" "TR10I" "TR10B" "TR10BI"
@@ -270,8 +272,8 @@
 		 "SYS: SYS2; USYMLD"))
   (:COMPILE-LOAD DEFS)
   (:COMPILE-LOAD ASS (:FASLOAD DEFS))
-  (:READFILE ("SYS: SYS; QCOM"
-	      "SYS: SYS; DEFMIC"
+  (:READFILE ("SYS: COLD; QCOM"
+	      "SYS: COLD; DEFMIC"
 	      "SYS: SYS; CADSYM")
 	     (:FASLOAD ASS))
   (:COMPILE-LOAD MAIN (:FASLOAD DEFS)))
@@ -372,19 +374,19 @@
 

 ;;; These are the files in the cold load
 (DEFCONST COLD-LOAD-FILE-LIST
-	  '("SYS: FONTS; CPTFON QFASL >"
+	  '("SYS: FONTS; CPTFONT QFASL >"
 	    "SYS: SYS; QRAND QFASL >"
 	    "SYS: IO; QIO QFASL >"
 ;	    "SYS: IO; RDTBL QFASL >"	;done specially
 	    "SYS: IO; READ QFASL >"
 	    "SYS: IO; PRINT QFASL >"
 	    "SYS: WINDOW; COLD QFASL >"
+	    "SYS: IO; DEBUG QFASL >"
 	    "SYS: SYS; SGFCTN QFASL >"
 	    "SYS: SYS; QEV QFASL >"
 	    "SYS: SYS; LTOP QFASL >"
 	    "SYS: SYS; QFASL QFASL >"
-#-XEROX	    "SYS: IO; MINI QFASL >"
-#+XEROX     "SYS: IO; DBMINI QFASL >"
+	    "SYS: IO; MINI QFASL >"
 	    "SYS: SYS; QFCTNS QFASL >"
 	    "SYS: SYS2; STRING QFASL >"
 	    ))
@@ -408,8 +410,8 @@
 	    ))
 
 (DEFCONST GLOBAL-PACKAGE-FILE-ALIST
-	  '(("SYS: SYS2; GLOBAL LISP >" "GLOBAL")
-	    ("SYS: SYS2; SYSTEM LISP >" "SYSTEM")))
+	  '(("SYS: COLD; GLOBAL LISP >" "GLOBAL")
+	    ("SYS: COLD; SYSTEM LISP >" "SYSTEM")))
 
 (DEFCONST INNER-SYSTEM-FILE-ALIST
 	  '(("SYS: SYS; QMISC QFASL >" "SI")
@@ -435,31 +437,12 @@
 	    ("SYS: IO; PATHNM QFASL >" "FS")
 	    ))
 
-#-XEROX
 (DEFCONST CHAOS-FILE-ALIST
 	  '(("SYS: IO; CHSNCP QFASL >" "CHAOS")
 	    ("SYS: IO; CHSAUX QFASL >" "CHAOS")
 	    ("SYS: IO; QFILE QFASL >" "FS")
 	    ))
 
-#+XEROX
-(DEFVAR CHAOS-FILE-ALIST)			;Prevent compiler warnings
-
-#+XEROX
-(DEFCONST ETHER-FILE-ALIST
-	  '(("SYS: ETHER; EDEFS QFASL >" "ETHER")
-	    ("SYS: ETHER; UQCOM QFASL >" "ETHER")
-	    ("SYS: ETHER; MISC QFASL >" "ETHER")
-	    ("SYS: ETHER; ETHER QFASL >" "ETHER")
-	    ("SYS: ETHER; ROUTE QFASL >" "ETHER")
-	    ("SYS: ETHER; PUP1 QFASL >" "ETHER")
-	    ("SYS: ETHER; RTP QFASL >" "ETHER")
-	    ("SYS: ETHER; BSP QFASL >" "ETHER")
-	    ("SYS: ETHER; FTP QFASL >" "ETHER")
-	    ("SYS: ETHER; ENAME QFASL >" "ETHER")
-	    ))
-
-#-XEROX
 (DEFVAR ETHER-FILE-ALIST)
 
 (DEFCONST SITE-FILE-ALIST