From 04cabd359714604e4a23b65aab0b35ecf76bef68 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 18:34:31 +0000
Subject: [PATCH] Changed to only load the XXXmsgdefs files when there is no
 XXXuser.nfasl, and also bound *ALIEN-EVAL-WHEN* to COMPILE around this stuff
 so that we won't eval the msgdefs stuff twice.

---
 tools/worldcom.lisp | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp
index 8ca0b2089..554912555 100644
--- a/tools/worldcom.lisp
+++ b/tools/worldcom.lisp
@@ -98,14 +98,15 @@
 (comf "ncode:mmlispdefs")
 (comf "nicode:machdefs")
 (comf "nicode:netnamedefs")
-#-new-compiler ; Leave these out for now...
-(load "nicode:machmsgdefs.lisp")
-#-new-compiler
-(comf "nicode:machuser")
-#-new-compiler
-(load "nicode:netnamemsgdefs.lisp")
-#-new-compiler
-(comf "nicode:netnameuser")
+
+(let ((system:*alien-eval-when* '(compile)))
+  (unless (probe-file "nicode:machuser.nfasl")
+    (load "nicode:machmsgdefs.lisp")
+    (comf "nicode:machuser"))
+  
+  (unless (probe-file "nicode:netnameuser.nfasl")
+    (load "nicode:netnamemsgdefs.lisp")
+    (comf "nicode:netnameuser")))
 
 (comf "ncode:defstruct")
 (comf "ncode:defmacro")
-- 
GitLab