worldcom.lisp 3.52 KB
Newer Older
ram's avatar
ram committed
1
2
3
4
5
6
7
8
9
10
11
12
;;; -*- 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")

13
(with-compiler-log-file ("code:compile-lisp.log")
ram's avatar
ram committed
14
15
16

;;; these guys need to be first.

17
18
(comf "code:globals" :always-once t) ; For global variables.
(comf "code:struct" :always-once t) ; For structures.
ram's avatar
ram committed
19
20
21
22

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

23
24
25
26
27
28
29
30
31
32
33
34
35
36
(comf "code:serve-event")
(comf "code:lispinit")
(comf "code:error")
(comf "code:alieneval")
(comf "code:stream")
(comf "code:arith")
(comf "code:array")
(comf "code:backq")
(comf "code:c-call")
(comf "code:char")
(comf "code:list")
;(comf "code:clx-ext")
(comf "code:commandline")
(comf "code:eval")
ram's avatar
ram committed
37
(comf "code:debug-int")
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
(comf "code:debug")
(comf "code:trace")
(comf "code:extensions")
(comf "code:fd-stream")
(comf "code:fdefinition")
(comf "code:filesys")
(comf "code:format")
(comf "code:hash")
(comf "code:lfloatcon")
(comf "code:load")
(comf "code:miscop")
(comf "code:package")
(comf "code:rompstrops")
(comf "code:pred")
(comf "code:print")
(comf "code:provide")
(comf "code:query")
(comf "code:rand")
(comf "code:reader")
(comf "code:rompnum")
(comf "code:salterror")
(comf "code:save")
(comf "code:search-list")
(comf "code:seq")
(comf "code:sharpm")
(comf "code:sort")
(comf "code:type-boot")
(comf "code:run-program")
(comf "code:spirrat")
(comf "code:xp")
(comf "code:xp-patch")
(comf "code:pprint")
(comf "code:string")
(comf "code:subtypep")
(comf "code:symbol")
(comf "code:syscall")
(comf "code:sysmacs")
(comf "code:time")
(comf "code:foreign")
ram's avatar
ram committed
77
78
(comf "c:proclaim")
(comf "c:knownfun")
79
(comf "code:debug-info")
ram's avatar
ram committed
80
81

;;; Later so that miscellaneous structures are defined (not crucial, but nice.)
82
83
84
(comf "code:describe")
;(comf "code:inspect")
(comf "code:tty-inspect")
ram's avatar
ram committed
85

86
87
88
89
90
(comf "code:purify")
(comf "code:gc")
(comf "code:misc")
(comf "code:format-time")
(comf "code:parse-time")
ram's avatar
ram committed
91

92
93
94
(comf "code:internet")
(comf "code:wire")
(comf "code:remote")
ram's avatar
ram committed
95
96
97
98

(comf "assem:ropdefs")
(comf "assem:rompconst")
(comf "assem:disassemble")
99
100
101
102
#+new-compiler
(comf "assem:assem")
#+new-compiler
(comf "assem:assembler")
ram's avatar
ram committed
103

104
105
106
107
(comf "code:machdef")
(comf "code:mmlispdefs")
(comf "icode:machdefs")
(comf "icode:netnamedefs")
108

109
(let ((system:*alien-eval-when* '(compile eval)))
110
111
112
  (unless (probe-file "icode:machuser.nfasl")
    (load "icode:machmsgdefs.lisp")
    (comf "icode:machuser"))
113
  
114
115
116
117
118
  (unless (probe-file "icode:netnameuser.nfasl")
    (load "icode:netnamemsgdefs.lisp")
    (comf "icode:netnameuser")))

(comf "code:constants")
ram's avatar
ram committed
119

120
121
122
123
124
125
126
;;; Compile basic macros that we assume are already in the compilation
;;; environment.  We inhibit compile-time definition to prevent these functions
;;; from becoming interpreted.  In some cases, this is necessary for
;;; compilation to work at all, since the expander functions are lazily
;;; converted: we could go into an infinite recursion trying to convert the
;;; definition of a macro which uses itself.
;;;
ram's avatar
ram committed
127
(let ((c:*compile-time-define-macros* nil))
128
129
130
131
  (comf "code:defstruct")
  (comf "code:defmacro")
  (comf "code:macros")
  (comf "code:defrecord")
132
133
  
  (comf "c:globaldb"))
ram's avatar
ram committed
134
135

); with-compiler-log-file