From 30ecf3fced4327b987b401d6b16927425c6b9981 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Mon, 18 May 2026 18:08:50 -0700
Subject: [PATCH] Reintroduce changes to enable XNS when ethernet is available

Necessitated by a merge of the LOADUP-LISP function from the main branch.
---
 internal/loadups/LOADUP-LISP      |  14 +++++++++-----
 internal/loadups/LOADUP-LISP.LCOM | Bin 3583 -> 3650 bytes
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/internal/loadups/LOADUP-LISP b/internal/loadups/LOADUP-LISP
index b681d3ac..b766256d 100644
--- a/internal/loadups/LOADUP-LISP
+++ b/internal/loadups/LOADUP-LISP
@@ -1,12 +1,14 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "XCL" :BASE 10)
 
-
(FILECREATED "16-Apr-2026 09:06:26" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;32|
 7864   
+
(FILECREATED "18-May-2026 17:55:46" 
+|{DSK}<Users>briggs>projects>medley>internal>loadups>LOADUP-LISP.;20|
 8046   
 
-      :EDIT-BY |rmk|
+      :EDIT-BY |nhb|
 
       :CHANGES-TO (FNS LOADUP-LISP)
 
-      :PREVIOUS-DATE "15-Apr-2026 23:27:22" |{WMEDLEY}<internal>loadups>LOADUP-LISP.;31|)
+      :PREVIOUS-DATE "16-Apr-2026 09:06:26" 
+|{DSK}<Users>briggs>projects>medley>internal>loadups>LOADUP-LISP.;19|)
 
 
 (PRETTYCOMPRINT LOADUP-LISPCOMS)
@@ -19,7 +21,8 @@
 (DEFINEQ
 
 (LOADUP-LISP

-  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 16-Apr-2026 09:06 by rmk")


+  (LAMBDA (DRIBBLEFILE)
                                     (* \; "Edited 18-May-2026 17:55 by nhb")


+                                                            (* \; "Edited 16-Apr-2026 09:06 by rmk")


                                                             (* \; "Edited  5-Apr-2026 21:35 by rmk")


                                                          (* \; "Edited 26-Mar-2026 18:38 by briggs")


                                                             (* \; "Edited 22-Feb-2026 14:15 by rmk")


@@ -138,6 +141,7 @@
 
     (LOADUP '(PUP 10MBDRIVER LEAF LLETHER DPUPFTP LOCALFILE DSKDISPLAY COURIER LLNS TRSERVER SPP 
                   NSPRINT AUTHENTICATION BSP CLEARINGHOUSE NSFILING MAIKOETHER))
+    (SETQ \\NSFLG T)
     (RESTART.ETHER)
     (DRIBBLE)
     (SETQ MAKESYSNAME :MEDLEY)))
@@ -151,5 +155,5 @@
 (GLOBALVARS MAKESYSFILENAME MEDLEY-INIT-VARS MEDLEYDIR SYSTEMINITVARS USERRECLST)
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (640 7658 (LOADUP-LISP 650 . 7656)))))
+  (FILEMAP (NIL (692 7840 (LOADUP-LISP 702 . 7838)))))
 STOP
diff --git a/internal/loadups/LOADUP-LISP.LCOM b/internal/loadups/LOADUP-LISP.LCOM
index e13f8ab08fede6eafd775b0130c6b41722ce7b51..0f622ebfb3a4fe3962980e5e56fd028bf41e583e 100644
GIT binary patch
delta 437
zcmew_eMn|Pke7w7Z(^mck%5t!f}y#UsfCq^p^}1zQgVK7L1s>Bib8&#f|3GPO|?s~
zcdbomacWVqT~bkIdU~;4K~a8IYH~@jU2bYhPHLsyWFJO3OCy6CO$8-Gb0kxZtc(q;
zjEz91lz@!QQBSE+sL9N$QBZOV_3;5(3sOAsqi`aIJ`*cb6D3V94L468SLYyC#}HQ+
zpy6mvHnlP_Bf*KPKqo3#7?_wTSh>1*hUhv)D%9j<B-JQbIeR$zxw{7IhWIORP3~t@
zo){#mO0>_J3@s;rW(*cma8oc=h>7tFcJp!9RAAi5$h_HyX%?eqW-=QG0}z0TbP!7%
zL<lfwm>3x-xCD7RIr+FMm>8OF=3!aJC}eD);Opq^8XOty=jaO*H!|IPgw>h@0DS9t
AssI20

delta 401
zcmX>k^Iv*Gkb#-5V?mLwk%5t!f`O%#fti(&nUaErQgVK7L1s>Bib8&#f|5c_b-1sq
zi;rt$t<A(aa`nbWHJS=sN`|Hgy++1XM&?!~mO!;hMX4~|H3~JU6$M4bRy7Jf{*Er8
z0lGe(!2t?2nRzt|N^YS(J_^WY=;`SJwWlPOq^8thHQv-hNs~*%P1n=M)j7!3F~rqH
zLCFxS2T&cX3Usi7xrLdDf|aX_XNay-q(V(mZZ^;oD`yW!KX=z)-4K6;$*UNZ6*0VI
zWTd3Pg=!p=vEgKOreHQr1;%xZOq+X{W-+R9FaQCVNC&aRL4*K<hKZrMf=iI6lar6D
kf{CHgW`CAtj6z1{3cilsuECMPevZCCaU-M6>}=K?03Q%$DgXcg