1
0
mirror of synced 2026-01-15 00:12:24 +00:00

Remove DEFAULTPRINTINGHOST from APUTDQ

No need to smash the values created during the loadup
This commit is contained in:
rmkaplan 2025-12-28 21:22:36 -08:00
parent 1fc6e5115c
commit d2f08479aa
2 changed files with 7 additions and 8 deletions

View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Jun-2025 08:43:36" {WMEDLEY}<sources>APUTDQ.;5 10433
(FILECREATED "28-Dec-2025 16:59:14" {WMEDLEY}<sources>APUTDQ.;6 10366
:EDIT-BY rmk
:CHANGES-TO (VARS APUTDQCOMS)
:PREVIOUS-DATE "23-May-2025 09:03:46" {WMEDLEY}<sources>APUTDQ.;4)
:PREVIOUS-DATE "11-Jun-2025 08:43:36" {WMEDLEY}<sources>APUTDQ.;5)
(PRETTYCOMPRINT APUTDQCOMS)
@ -29,8 +29,8 @@
(LOGINHOST/DIR '{DSK}))
(FNS LOADUP ENDLOADUP)
(ALISTS (SYSTEMINITVARS \CONNECTED.DIRECTORY DWIMFLG ADDSPELLFLG FILEPKGFLG BUILDMAPFLG
UPDATEMAPFLG DEFAULTREGISTRY DEFAULTPRINTINGHOST NETWORKOSTYPES CH.NET.HINT
CH.DEFAULT.DOMAIN CH.DEFAULT.ORGANIZATION ADVISEDFNS))
UPDATEMAPFLG DEFAULTREGISTRY NETWORKOSTYPES CH.NET.HINT CH.DEFAULT.DOMAIN
CH.DEFAULT.ORGANIZATION ADVISEDFNS))
[DECLARE%: DONTEVAL@LOAD DOCOPY
(* ;; "many of these are obsolete and can be removed, but it is unclear which ones")
@ -174,7 +174,6 @@
(BUILDMAPFLG . T)
(UPDATEMAPFLG . T)
(DEFAULTREGISTRY)
(DEFAULTPRINTINGHOST)
(NETWORKOSTYPES)
(CH.NET.HINT)
(CH.DEFAULT.DOMAIN)
@ -249,7 +248,7 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3701 5909 (GREETFILENAME 3711 . 5584) (FAULTEVAL 5586 . 5658) (FAULTAPPLY 5660 . 5746)
(ERRORX 5748 . 5814) (SET-DOCUMENTATION 5816 . 5907)) (5910 6930 (SMASHFILECOMS 5920 . 6262) (
SMASHFILECOMSLST 6264 . 6928)) (7024 8628 (LOADUP 7034 . 7618) (ENDLOADUP 7620 . 8626)))))
(FILEMAP (NIL (3681 5889 (GREETFILENAME 3691 . 5564) (FAULTEVAL 5566 . 5638) (FAULTAPPLY 5640 . 5726)
(ERRORX 5728 . 5794) (SET-DOCUMENTATION 5796 . 5887)) (5890 6910 (SMASHFILECOMS 5900 . 6242) (
SMASHFILECOMSLST 6244 . 6908)) (7004 8608 (LOADUP 7014 . 7598) (ENDLOADUP 7600 . 8606)))))
STOP

Binary file not shown.