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

@@ -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