Skip to content
Snippets Groups Projects
Commit 04cabd35 authored by ram's avatar ram
Browse files

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.
parent 44f12841
No related branches found
No related tags found
No related merge requests found
...@@ -98,14 +98,15 @@ ...@@ -98,14 +98,15 @@
(comf "ncode:mmlispdefs") (comf "ncode:mmlispdefs")
(comf "nicode:machdefs") (comf "nicode:machdefs")
(comf "nicode:netnamedefs") (comf "nicode:netnamedefs")
#-new-compiler ; Leave these out for now...
(load "nicode:machmsgdefs.lisp") (let ((system:*alien-eval-when* '(compile)))
#-new-compiler (unless (probe-file "nicode:machuser.nfasl")
(comf "nicode:machuser") (load "nicode:machmsgdefs.lisp")
#-new-compiler (comf "nicode:machuser"))
(load "nicode:netnamemsgdefs.lisp")
#-new-compiler (unless (probe-file "nicode:netnameuser.nfasl")
(comf "nicode:netnameuser") (load "nicode:netnamemsgdefs.lisp")
(comf "nicode:netnameuser")))
(comf "ncode:defstruct") (comf "ncode:defstruct")
(comf "ncode:defmacro") (comf "ncode:defmacro")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment