Skip to content
Snippets Groups Projects
Commit 206c33ca authored by ram's avatar ram
Browse files

Changed to new logical names. Moved serve-event before lispinit so that

variables are defined before use.  Moved constants out of the LET
*compile-time-define-macros* so that DEFINE-SYSTEM-CONSTANT is defined.
Added type-boot.
parent 6ac73f94
No related branches found
No related tags found
No related merge requests found
...@@ -10,86 +10,87 @@ ...@@ -10,86 +10,87 @@
(in-package "USER") (in-package "USER")
(with-compiler-log-file ("ncode:compile-lisp.log") (with-compiler-log-file ("code:compile-lisp.log")
;;; these guys need to be first. ;;; these guys need to be first.
(comf "ncode:globals" :always-once t) ; For global variables. (comf "code:globals" :always-once t) ; For global variables.
(comf "ncode:struct" :always-once t) ; For structures. (comf "code:struct" :always-once t) ; For structures.
;;; these guys can supposedly come in any order, but not really. ;;; these guys can supposedly come in any order, but not really.
;;; some are put at the end so macros don't run interpreted and stuff. ;;; some are put at the end so macros don't run interpreted and stuff.
(comf "ncode:lispinit") (comf "code:serve-event")
(comf "ncode:error") (comf "code:lispinit")
(comf "ncode:alieneval") (comf "code:error")
(comf "ncode:stream") (comf "code:alieneval")
(comf "ncode:arith") (comf "code:stream")
(comf "ncode:array") (comf "code:arith")
(comf "ncode:backq") (comf "code:array")
(comf "ncode:c-call") (comf "code:backq")
(comf "ncode:char") (comf "code:c-call")
(comf "ncode:list") (comf "code:char")
;(comf "ncode:clx-ext") (comf "code:list")
(comf "ncode:commandline") ;(comf "code:clx-ext")
(comf "ncode:eval") (comf "code:commandline")
(comf "ncode:debug") (comf "code:eval")
(comf "ncode:trace") (comf "code:debug")
(comf "ncode:extensions") (comf "code:trace")
(comf "ncode:fd-stream") (comf "code:extensions")
(comf "ncode:fdefinition") (comf "code:fd-stream")
(comf "ncode:filesys") (comf "code:fdefinition")
(comf "ncode:format") (comf "code:filesys")
(comf "ncode:hash") (comf "code:format")
(comf "ncode:lfloatcon") (comf "code:hash")
(comf "ncode:load") (comf "code:lfloatcon")
(comf "ncode:miscop") (comf "code:load")
(comf "ncode:package") (comf "code:miscop")
(comf "ncode:rompstrops") (comf "code:package")
(comf "ncode:pred") (comf "code:rompstrops")
(comf "ncode:print") (comf "code:pred")
(comf "ncode:provide") (comf "code:print")
(comf "ncode:query") (comf "code:provide")
(comf "ncode:rand") (comf "code:query")
(comf "ncode:reader") (comf "code:rand")
(comf "ncode:rompnum") (comf "code:reader")
(comf "ncode:salterror") (comf "code:rompnum")
(comf "ncode:save") (comf "code:salterror")
(comf "ncode:search-list") (comf "code:save")
(comf "ncode:seq") (comf "code:search-list")
(comf "ncode:serve-event") (comf "code:seq")
(comf "ncode:sharpm") (comf "code:sharpm")
(comf "ncode:sort") (comf "code:sort")
(comf "ncode:run-program") (comf "code:type-boot")
(comf "ncode:spirrat") (comf "code:run-program")
(comf "ncode:xp") (comf "code:spirrat")
(comf "ncode:xp-patch") (comf "code:xp")
(comf "ncode:pprint") (comf "code:xp-patch")
(comf "ncode:string") (comf "code:pprint")
(comf "ncode:subtypep") (comf "code:string")
(comf "ncode:symbol") (comf "code:subtypep")
(comf "ncode:syscall") (comf "code:symbol")
(comf "ncode:sysmacs") (comf "code:syscall")
(comf "ncode:time") (comf "code:sysmacs")
(comf "ncode:foreign") (comf "code:time")
(comf "code:foreign")
(comf "c:proclaim") (comf "c:proclaim")
(comf "c:knownfun") (comf "c:knownfun")
(comf "ncode:debug-info") (comf "code:debug-info")
;;; Later so that miscellaneous structures are defined (not crucial, but nice.) ;;; Later so that miscellaneous structures are defined (not crucial, but nice.)
(comf "ncode:describe") (comf "code:describe")
;(comf "ncode:inspect") ;(comf "code:inspect")
(comf "ncode:tty-inspect") (comf "code:tty-inspect")
(comf "ncode:purify") (comf "code:purify")
(comf "ncode:gc") (comf "code:gc")
(comf "ncode:misc") (comf "code:misc")
(comf "ncode:format-time") (comf "code:format-time")
(comf "ncode:parse-time") (comf "code:parse-time")
(comf "ncode:internet") (comf "code:internet")
(comf "ncode:wire") (comf "code:wire")
(comf "ncode:remote") (comf "code:remote")
(comf "assem:ropdefs") (comf "assem:ropdefs")
(comf "assem:rompconst") (comf "assem:rompconst")
...@@ -99,19 +100,21 @@ ...@@ -99,19 +100,21 @@
#+new-compiler #+new-compiler
(comf "assem:assembler") (comf "assem:assembler")
(comf "ncode:machdef") (comf "code:machdef")
(comf "ncode:mmlispdefs") (comf "code:mmlispdefs")
(comf "nicode:machdefs") (comf "icode:machdefs")
(comf "nicode:netnamedefs") (comf "icode:netnamedefs")
(let ((system:*alien-eval-when* '(compile eval))) (let ((system:*alien-eval-when* '(compile eval)))
(unless (probe-file "nicode:machuser.nfasl") (unless (probe-file "icode:machuser.nfasl")
(load "nicode:machmsgdefs.lisp") (load "icode:machmsgdefs.lisp")
(comf "nicode:machuser")) (comf "icode:machuser"))
(unless (probe-file "nicode:netnameuser.nfasl") (unless (probe-file "icode:netnameuser.nfasl")
(load "nicode:netnamemsgdefs.lisp") (load "icode:netnamemsgdefs.lisp")
(comf "nicode:netnameuser"))) (comf "icode:netnameuser")))
(comf "code:constants")
;;; Compile basic macros that we assume are already in the compilation ;;; Compile basic macros that we assume are already in the compilation
;;; environment. We inhibit compile-time definition to prevent these functions ;;; environment. We inhibit compile-time definition to prevent these functions
...@@ -121,11 +124,10 @@ ...@@ -121,11 +124,10 @@
;;; definition of a macro which uses itself. ;;; definition of a macro which uses itself.
;;; ;;;
(let ((c:*compile-time-define-macros* nil)) (let ((c:*compile-time-define-macros* nil))
(comf "ncode:defstruct") (comf "code:defstruct")
(comf "ncode:defmacro") (comf "code:defmacro")
(comf "ncode:macros") (comf "code:macros")
(comf "ncode:defrecord") (comf "code:defrecord")
(comf "ncode:constants")
(comf "c:globaldb")) (comf "c:globaldb"))
......
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