From d2f08479aaabd85fbacab11465acc2b88d2fcdf4 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 28 Dec 2025 21:22:36 -0800
Subject: [PATCH] Remove DEFAULTPRINTINGHOST from APUTDQ

No need to smash the values created during the loadup
---
 sources/APUTDQ      |  15 +++++++--------
 sources/APUTDQ.LCOM | Bin 5730 -> 5686 bytes
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/sources/APUTDQ b/sources/APUTDQ
index 7fbeb952..ddbe8be3 100644
--- a/sources/APUTDQ
+++ b/sources/APUTDQ
@@ -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
diff --git a/sources/APUTDQ.LCOM b/sources/APUTDQ.LCOM
index 568867e67e31cf2614abffa42e0246fcf7c767f7..cb08e5048e99fc43a7d39140fe665bf47be3aeaf 100644
GIT binary patch
delta 263
zcmaE)vrT70xQLO3u1jjNu91O}se+-Im8qqbp~=K-oq97(1ui8cGbBlKD`QJ50}CaE
zq@vX1{M>@foYWMB)QW<lVpS`Jy!?`k%)E4k%sd4pw@@D+1!S#ydU{F<DTyUO_1Mfb
zG*i;#(s1+iadi%IbqsNJQBX1x#^S8W^BHB>%@hm`jLpm@`!U*17H2fvyoYfn&*V(L
zARY}DS7#r`AXlJcxHcc>OJq^-a}5di5Aya84v7qK4c1i9aQ4sxis^ZH`h@^_T$|&B
GS(pLYw?q2?

delta 300
zcmdm{^GIhxxQL;lu2*TEu91O}se*xpm5H&HvDw6IoqAJE1ui8+1B9fJp_P%jm4UgE
zLQ+v`a(-?>W=?8~LUKl8UV3V=s+B@seo01VUb;eNo`RBFsE>~VvSvL!Jtc*d#1fzm
zY^E9+Drs_QxOw`xItRHrhPb*YOzvPbVgnjsVr)FwhtXEp$XM4mu@dS`ODh9oE0f7{
z7-bnvHt%Ab$s^+8>gE{g6A}>Q=@;VZ=kDPj9HKBem@kNtYw|8Z>CFfE0$I$ksL@o=
k@N*3b_Yd+0YKRPQ4F(EuIeX{<1@%0DMgh5-jf7d40b+qqrT_o{