worldcom.lisp 3.59 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
14
15
(c::%proclaim '(optimize (speed 2) (space 2) (c::brevity 2)))
(setq *print-pretty* nil)

16
(with-compiler-log-file ("code:compile-lisp.log")
ram's avatar
ram committed
17
18
19

;;; these guys need to be first.

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

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

26
27
28
29
30
31
32
33
34
35
36
37
38
39
(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")
40
(comf "code:debug-info")
ram's avatar
ram committed
41
(comf "code:debug-int")
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
(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
81
82
83
(comf "c:proclaim")

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

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

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

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

106
107
108
109
(comf "code:machdef")
(comf "code:mmlispdefs")
(comf "icode:machdefs")
(comf "icode:netnamedefs")
110

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

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

122
123
124
125
126
127
128
;;; 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
129
(let ((c:*compile-time-define-macros* nil))
130
131
132
133
  (comf "code:defstruct")
  (comf "code:defmacro")
  (comf "code:macros")
  (comf "code:defrecord")
134
135
  
  (comf "c:globaldb"))
ram's avatar
ram committed
136
137

); with-compiler-log-file