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