Changeset 305

Show
Ignore:
Timestamp:
05/05/12 10:31:47 (2 years ago)
Author:
rswindells
Message:

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

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • trunk/lisp/sys/sysdcl.lisp

    r292 r305  
    5252                 "SYS: WINDOW; COLD" 
    5353                 "SYS: IO; PRINT" 
     54                 "SYS: IO; DEBUG" 
    5455                 "SYS: SYS; QEV" 
    5556                 "SYS: SYS; QFASL" 
    56 #-XEROX          "SYS: IO; MINI" 
     57                 "SYS: IO; MINI" 
    5758                 "SYS: IO; QIO" 
    5859                 "SYS: SYS; QRAND" 
    59                  "SYS: IO; RDTBL" 
    6060                 "SYS: IO; READ" 
    6161                 "SYS: SYS; SGFCTN" 
     
    9494                 "SYS: IO; UNIBUS" 
    9595                 "SYS: IO1; XGP")) 
     96  (:MODULE RDTBL "SYS: IO; RDTBL") 
    9697  (:COMPILE-LOAD DEFS) 
    9798  (:COMPILE-LOAD MAIN (:FASLOAD DEFS)) 
     99  (:FASLOAD RDTBL) 
    98100  (:COMPILE-LOAD METH (:FASLOAD DEFS)) 
    99101  (:COMPILE-LOAD CLASS (:FASLOAD DEFS) (:FASLOAD METH))) 
     
    102104  (:PACKAGE FONTS) 
    103105  (:PATHNAME-DEFAULT "SYS: FONTS;") 
    104   (:FASLOAD ("TVFONT" "CPTFNB" "BIGFNT" "TINY" "5X5" 
     106  (:FASLOAD ("TVFONT" "CPTFONTB" "BIGFNT" "TINY" "5X5" 
    105107             "MEDFNT" "MEDFNB" "METS" "METSI" "43VXMS" 
    106108             "HL6" "HL7" "HL10" "HL10B" "HL12" "HL12I" "HL12B" "HL12BI" 
     
    271273  (:COMPILE-LOAD DEFS) 
    272274  (:COMPILE-LOAD ASS (:FASLOAD DEFS)) 
    273   (:READFILE ("SYS: SYS; QCOM" 
    274               "SYS: SYS; DEFMIC" 
     275  (:READFILE ("SYS: COLD; QCOM" 
     276              "SYS: COLD; DEFMIC" 
    275277              "SYS: SYS; CADSYM") 
    276278             (:FASLOAD ASS)) 
     
    373375;;; These are the files in the cold load 
    374376(DEFCONST COLD-LOAD-FILE-LIST 
    375           '("SYS: FONTS; CPTFON QFASL >" 
     377          '("SYS: FONTS; CPTFONT QFASL >" 
    376378            "SYS: SYS; QRAND QFASL >" 
    377379            "SYS: IO; QIO QFASL >" 
     
    380382            "SYS: IO; PRINT QFASL >" 
    381383            "SYS: WINDOW; COLD QFASL >" 
     384            "SYS: IO; DEBUG QFASL >" 
    382385            "SYS: SYS; SGFCTN QFASL >" 
    383386            "SYS: SYS; QEV QFASL >" 
    384387            "SYS: SYS; LTOP QFASL >" 
    385388            "SYS: SYS; QFASL QFASL >" 
    386 #-XEROX     "SYS: IO; MINI QFASL >" 
    387 #+XEROX     "SYS: IO; DBMINI QFASL >" 
     389            "SYS: IO; MINI QFASL >" 
    388390            "SYS: SYS; QFCTNS QFASL >" 
    389391            "SYS: SYS2; STRING QFASL >" 
     
    409411 
    410412(DEFCONST GLOBAL-PACKAGE-FILE-ALIST 
    411           '(("SYS: SYS2; GLOBAL LISP >" "GLOBAL") 
    412             ("SYS: SYS2; SYSTEM LISP >" "SYSTEM"))) 
     413          '(("SYS: COLD; GLOBAL LISP >" "GLOBAL") 
     414            ("SYS: COLD; SYSTEM LISP >" "SYSTEM"))) 
    413415 
    414416(DEFCONST INNER-SYSTEM-FILE-ALIST 
     
    436438            )) 
    437439 
    438 #-XEROX 
    439440(DEFCONST CHAOS-FILE-ALIST 
    440441          '(("SYS: IO; CHSNCP QFASL >" "CHAOS") 
     
    443444            )) 
    444445 
    445 #+XEROX 
    446 (DEFVAR CHAOS-FILE-ALIST)                       ;Prevent compiler warnings 
    447  
    448 #+XEROX 
    449 (DEFCONST ETHER-FILE-ALIST 
    450           '(("SYS: ETHER; EDEFS QFASL >" "ETHER") 
    451             ("SYS: ETHER; UQCOM QFASL >" "ETHER") 
    452             ("SYS: ETHER; MISC QFASL >" "ETHER") 
    453             ("SYS: ETHER; ETHER QFASL >" "ETHER") 
    454             ("SYS: ETHER; ROUTE QFASL >" "ETHER") 
    455             ("SYS: ETHER; PUP1 QFASL >" "ETHER") 
    456             ("SYS: ETHER; RTP QFASL >" "ETHER") 
    457             ("SYS: ETHER; BSP QFASL >" "ETHER") 
    458             ("SYS: ETHER; FTP QFASL >" "ETHER") 
    459             ("SYS: ETHER; ENAME QFASL >" "ETHER") 
    460             )) 
    461  
    462 #-XEROX 
    463446(DEFVAR ETHER-FILE-ALIST) 
    464447