worldcom.lisp 2.91 KB
Newer Older
ram's avatar
ram committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
;;; -*- Package: User; Log: code.log -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the Spice Lisp project at
;;; Carnegie-Mellon University, and has been placed in the public domain.
;;; Spice Lisp is currently incomplete and under active development.
;;; If you want to use this code or any part of Spice Lisp, please contact
;;; Scott Fahlman (FAHLMAN@CMUC). 
;;; **********************************************************************

(in-package "USER")

(with-compiler-log-file ("ncode:compile-lisp.log")

;;; these guys need to be first.

(comf "ncode:globals" :always-once t) ; For global variables.
(comf "ncode:struct" :always-once t) ; For structures.

;;; 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.

(comf "ncode:lispinit")
(comf "ncode:error")
(comf "ncode:alieneval")
(comf "ncode:stream")
(comf "ncode:arith")
(comf "ncode:array")
(comf "ncode:backq")
(comf "ncode:c-call")
(comf "ncode:char")
(comf "ncode:list")
;(comf "ncode:clx-ext")
(comf "ncode:commandline")
(comf "ncode:eval")
(comf "ncode:debug")
(comf "ncode:trace")
(comf "ncode:extensions")
(comf "ncode:fdefinition")
(comf "ncode:filesys")
(comf "ncode:format")
(comf "ncode:hash")
(comf "ncode:lfloatcon")
(comf "ncode:load")
(comf "ncode:machio")
(comf "ncode:miscop")
(comf "ncode:package")
(comf "ncode:rompstrops")
(comf "ncode:pred")
(comf "ncode:print")
(comf "ncode:provide")
(comf "ncode:query")
(comf "ncode:rand")
(comf "ncode:reader")
(comf "ncode:rompnum")
(comf "ncode:salterror")
(comf "ncode:save")
(comf "ncode:search-list")
(comf "ncode:seq")
(comf "ncode:sharpm")
(comf "ncode:sort")
(comf "ncode:run-program")
(comf "ncode:spirrat")
(comf "ncode:xp")
(comf "ncode:xp-patch")
(comf "ncode:pprint")
(comf "ncode:string")
(comf "ncode:subtypep")
(comf "ncode:symbol")
(comf "ncode:syscall")
(comf "ncode:sysmacs")
(comf "ncode:time")
(comf "ncode:foreign")
(comf "c:proclaim")
(comf "c:knownfun")
(comf "ncode:debug-info")

;;; Later so that miscellaneous structures are defined (not crucial, but nice.)
(comf "ncode:describe")
;(comf "ncode:inspect")
(comf "ncode:tty-inspect")

(comf "ncode:purify")
(comf "ncode:gc")
(comf "ncode:misc")
(comf "ncode:format-time")
(comf "ncode:parse-time")

(comf "ncode:internet")
(comf "ncode:wire")
(comf "ncode:remote")

(comf "assem:ropdefs")
(comf "assem:rompconst")
(comf "assem:disassemble")

(comf "ncode:machdef")
(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")

(comf "ncode:defstruct")
(comf "ncode:defmacro")
(comf "ncode:macros")
(comf "ncode:defrecord")
(comf "ncode:constants")

(comf "c:globaldb")

); with-compiler-log-file