Changeset 305

Timestamp:

05/05/12 10:31:47 (13 months ago)

Author:

rswindells

Message:

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

Files:

• trunk/lisp/sys/sysdcl.lisp (modified) (9 diffs)

trunk/lisp/sys/sysdcl.lisp

@@ -52 +52 @@
                  "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"
@@ -94 +94 @@
                  "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)))
@@ -102 +104 @@
   (: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"
@@ -271 +273 @@
   (: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))
@@ -373 +375 @@
 ;;; 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 >"
@@ -380 +382 @@
             "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 >"
@@ -409 +411 @@
 
 (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
@@ -436 +438 @@
             ))
 
-#-XEROX
 (DEFCONST CHAOS-FILE-ALIST
           '(("SYS: IO; CHSNCP QFASL >" "CHAOS")
@@ -443 +444 @@
             ))
 
-#+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)