diff --git a/tools/worldcom.lisp b/tools/worldcom.lisp index 8ca0b20891f45a071030a4e17035bdbbfc0c32c0..5549125553172e050c432d855d39fa1b3970ccb7 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")