Changeset 305


Ignore:
Timestamp:
05/05/12 17:31:47 (3 years ago)
Author:
rswindells
Message:

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

File:
1 edited

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))
     
    374376;;; These are the files in the cold load
    375377(DEFCONST COLD-LOAD-FILE-LIST
    376           '("SYS: FONTS; CPTFON QFASL >"
     378          '("SYS: FONTS; CPTFONT QFASL >"
    377379            "SYS: SYS; QRAND QFASL >"
    378380            "SYS: IO; QIO QFASL >"
     
    381383            "SYS: IO; PRINT QFASL >"
    382384            "SYS: WINDOW; COLD QFASL >"
     385            "SYS: IO; DEBUG QFASL >"
    383386            "SYS: SYS; SGFCTN QFASL >"
    384387            "SYS: SYS; QEV QFASL >"
    385388            "SYS: SYS; LTOP QFASL >"
    386389            "SYS: SYS; QFASL QFASL >"
    387 #-XEROX     "SYS: IO; MINI QFASL >"
    388 #+XEROX     "SYS: IO; DBMINI QFASL >"
     390            "SYS: IO; MINI QFASL >"
    389391            "SYS: SYS; QFCTNS QFASL >"
    390392            "SYS: SYS2; STRING QFASL >"
     
    410412
    411413(DEFCONST GLOBAL-PACKAGE-FILE-ALIST
    412           '(("SYS: SYS2; GLOBAL LISP >" "GLOBAL")
    413             ("SYS: SYS2; SYSTEM LISP >" "SYSTEM")))
     414          '(("SYS: COLD; GLOBAL LISP >" "GLOBAL")
     415            ("SYS: COLD; SYSTEM LISP >" "SYSTEM")))
    414416
    415417(DEFCONST INNER-SYSTEM-FILE-ALIST
     
    437439            ))
    438440
    439 #-XEROX
    440441(DEFCONST CHAOS-FILE-ALIST
    441442          '(("SYS: IO; CHSNCP QFASL >" "CHAOS")
     
    444445            ))
    445446
    446 #+XEROX
    447 (DEFVAR CHAOS-FILE-ALIST)                       ;Prevent compiler warnings
    448 
    449 #+XEROX
    450 (DEFCONST ETHER-FILE-ALIST
    451           '(("SYS: ETHER; EDEFS QFASL >" "ETHER")
    452             ("SYS: ETHER; UQCOM QFASL >" "ETHER")
    453             ("SYS: ETHER; MISC QFASL >" "ETHER")
    454             ("SYS: ETHER; ETHER QFASL >" "ETHER")
    455             ("SYS: ETHER; ROUTE QFASL >" "ETHER")
    456             ("SYS: ETHER; PUP1 QFASL >" "ETHER")
    457             ("SYS: ETHER; RTP QFASL >" "ETHER")
    458             ("SYS: ETHER; BSP QFASL >" "ETHER")
    459             ("SYS: ETHER; FTP QFASL >" "ETHER")
    460             ("SYS: ETHER; ENAME QFASL >" "ETHER")
    461             ))
    462 
    463 #-XEROX
    464447(DEFVAR ETHER-FILE-ALIST)
    465448
Note: See TracChangeset for help on using the changeset viewer.