source: trunk/source/level-1/runtime.lisp @ 12085

Last change on this file since 12085 was 2651, checked in by gb, 14 years ago

No need to clean up symbol.package-plist, which no longer exists.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 6.2 KB
Line 
1;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;;   Copyright (C) 1994-2001 Digitool, Inc
4;;;   This file is part of OpenMCL. 
5;;;
6;;;   OpenMCL is licensed under the terms of the Lisp Lesser GNU Public
7;;;   License , known as the LLGPL and distributed with OpenMCL as the
8;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
9;;;   which is distributed with OpenMCL as the file "LGPL".  Where these
10;;;   conflict, the preamble takes precedence. 
11;;;
12;;;   OpenMCL is referenced in the preamble as the "LIBRARY."
13;;;
14;;;   The LLGPL is also available online at
15;;;   http://opensource.franz.com/preamble.html
16
17;;; Load .pfsl files, create a "runtime" (compiler- & development-tools-less)
18;;; image.
19
20(in-package "CCL")
21
22(%fasload "./l1-pfsls/l1-cl-package.pfsl")
23(%fasload "./l1-pfsls/l1-utils.pfsl")
24(%fasload "./l1-pfsls/l1-init.pfsl")
25(%fasload "./l1-pfsls/l1-symhash.pfsl")
26(%fasload "./l1-pfsls/l1-numbers.pfsl")
27(%fasload "./l1-pfsls/l1-aprims.pfsl")
28(%fasload "./l1-pfsls/ppc-callback-support.pfsl")
29(%fasload "./l1-pfsls/l1-sort.pfsl")
30(%fasload "./l1-pfsls/l1-dcode.pfsl")
31(%fasload "./l1-pfsls/l1-clos.pfsl")
32(%fasload "./binppc/defstruct.pfsl")
33(%fasload "./l1-pfsls/l1-streams.pfsl")
34(%fasload "./l1-pfsls/linux-files.pfsl")
35(%fasload "./binppc/lists.pfsl")
36(%fasload "./binppc/sequences.pfsl")
37(%fasload "./binppc/chars.pfsl")
38(%fasload "./l1-pfsls/l1-files.pfsl")
39(provide "SEQUENCES")
40(provide "DEFSTRUCT")
41(provide "CHARS")
42(provide "LISTS")
43(%fasload "./l1-pfsls/ppc-stack-groups.pfsl")
44(%fasload "./l1-pfsls/l1-stack-groups.pfsl")
45(%fasload "./l1-pfsls/l1-processes.pfsl")
46(%fasload "./l1-pfsls/l1-io.pfsl")
47(%fasload "./l1-pfsls/l1-reader.pfsl")
48(%fasload "./l1-pfsls/l1-readloop.pfsl")
49(%fasload "./l1-pfsls/l1-readloop-lds.pfsl")
50(%fasload "./l1-pfsls/l1-error-system.pfsl")
51
52(%fasload "./l1-pfsls/l1-events.pfsl")
53(%fasload "./l1-pfsls/ppc-trap-support.pfsl")
54(%fasload "./l1-pfsls/l1-format.pfsl")
55(%fasload "./l1-pfsls/l1-sysio.pfsl")
56(%fasload "./l1-pfsls/l1-pathnames.pfsl")
57(%fasload "./l1-pfsls/version.pfsl")
58(%fasload "./l1-pfsls/l1-boot-lds.pfsl")
59
60(%fasload "./l1-pfsls/l1-boot-1.pfsl")
61(catch :toplevel
62    (%fasload "./l1-pfsls/l1-typesys.pfsl")
63    (%fasload "./l1-pfsls/sysutils.pfsl")
64    (%fasload "./l1-pfsls/l1-error-signal.pfsl")
65    (setq *LEVEL-1-LOADED* t))
66
67(def-ccl-pointers fd-streams ()
68  (let* ((in (make-fd-stream 0 :direction :input))
69         (out (make-fd-stream 1 :direction :output))
70         (error out))
71    (setq *terminal-io* (make-echoing-two-way-stream in out))
72    (setq *debug-io* (make-echoing-two-way-stream in error)
73          *query-io* *debug-io*)
74    (setq *standard-input* in
75          *standard-output* out
76          *error-output* error
77          *trace-output* error)))
78
79(catch :toplevel
80    (flet ((load-provide (module path)
81             (let* ((*package* *package*))
82               (%fasload path)
83               (provide module))))
84      (load-provide "SORT" "./binppc/sort.pfsl")
85      (load-provide "NUMBERS" "./binppc/numbers.pfsl")
86      (load-provide "HASH" "./binppc/hash.pfsl")
87;;;   (load-provide "DLL-NODE" "./binppc/dll-node.pfsl")
88;;;   (load-provide "PPC32-ARCH" "./binppc/ppc32-arch.pfsl")
89;;;   (load-provide "VREG" "./binppc/vreg.pfsl")
90;;;   (load-provide "PPC-ASM" "./binppc/ppc-asm.pfsl")
91;;;   (load-provide "VINSN" "./binppc/vinsn.pfsl")
92;;;   (load-provide "PPC-VINSNS" "./binppc/ppc-vinsns.pfsl")
93;;;   (load-provide "PPC-REG" "./binppc/ppc-reg.pfsl")
94;;;   (load-provide "SUBPRIMS" "./binppc/subprims.pfsl")
95;;;   (load-provide "PPC-LAP" "./binppc/ppc-lap.pfsl")
96;;;   (provide "PPC2")                  ; Lie, load the module manually
97;;;   (load-provide "NX" "./l1-pfsls/nx.pfsl")
98;;;   (%fasload "./binppc/ppc2.pfsl")
99      (load-provide "LEVEL-2" "./binppc/level-2.pfsl")
100;;;     (load-provide "SETF" "./binppc/setf.pfsl")
101      (load-provide "SETF-RUNTIME" "./binppc/setf-runtime.pfsl")
102      (load-provide "FORMAT" "./binppc/format.pfsl")
103      (load-provide "STREAMS" "./binppc/streams.pfsl")
104;;;   (load-provide "OPTIMIZERS" "./binppc/optimizers.pfsl")
105;;;   (load-provide "PPC-OPTIMIZERS" "./binppc/ppc-optimizers.pfsl")
106;;;   (load-provide "LISPEQU" "./library/lispequ.pfsl")          ; Shouldn't need this at load time ...
107;;;   (load-provide "DEFSTRUCT-MACROS" "./binppc/defstruct-macros.pfsl")        ;  ... but this file thinks it does.
108;;;   (load-provide "DEFSTRUCT-LDS" "./binppc/defstruct-lds.pfsl")
109;;;   (load-provide "NFCOMP" "./binppc/nfcomp.pfsl")
110;;;   (load-provide "BACKQUOTE" "./binppc/backquote.pfsl")
111      (load-provide "BACKTRACE-LDS" "./binppc/backtrace-lds.pfsl")
112      (load-provide "BACKTRACE" "./binppc/backtrace.pfsl")
113      (load-provide "READ" "./binppc/read.pfsl")
114      (load-provide "ARRAYS-FRY" "./binppc/arrays-fry.pfsl")
115;;;   (load-provide "APROPOS" "./binppc/apropos.pfsl")
116;;;   (load-provide "PPC-DISASSEMBLE" "./binppc/ppc-disassemble.pfsl")
117;;;   (load-provide "PPC-LAPMACROS" "./binppc/ppc-lapmacros.pfsl")
118;;;   (load-provide "MACTYPES" "./binppc/mactypes.pfsl")
119;;;   (load-provide "DEFRECORD" "./binppc/defrecord.pfsl")
120;;;   (load-provide "LINUX-RECORDS" "./library/linux-records.pfsl")
121      (load-provide "CASE-ERROR" "./binppc/case-error.pfsl")
122;;;   (load-provide "ENCAPSULATE" "./binppc/encapsulate.pfsl")
123      (load-provide "METHOD-COMBINATION" "./binppc/method-combination.pfsl")
124      (load-provide "MISC" "./binppc/misc.pfsl")
125      (load-provide "PPRINT" "./binppc/pprint.pfsl")
126      (load-provide "DUMPLISP" "./binppc/dumplisp.pfsl")
127      (load-provide "PATHNAMES" "./binppc/pathnames.pfsl")
128      (load-provide "TIME" "./binppc/time.pfsl")
129;;;   (load-provide "COMPILE-CCL" "./binppc/compile-ccl.pfsl")
130;;;   (load-provide "SOURCE-FILES" "./binppc/source-files.pfsl")
131      (load-provide "CCL-EXPORT-SYMS" "./binppc/ccl-export-syms.pfsl")
132      )
133    (setq *%fasload-verbose* nil)
134    )
135(catch :toplevel
136    (or (find-package "COMMON-LISP-USER")
137        (make-package "COMMON-LISP-USER" :use '("COMMON-LISP" "CCL") :NICKNAMES '("CL-USER")))
138)
139
140(defvar *LISTENER-PROCESS-STACKSEG-SIZE* (* 4 16384))
141
142(setf (interrupt-level) 0)
143
144(setq *warn-if-redefine* t)
145
146(setq *level-1-loaded* t)
147
148(set-periodic-task-interval 1)
149
150(do-all-symbols (s)
151  (setf (symbol-plist s) nil))
152
153(progn (%set-toplevel #'toplevel-loop) (save-application "RUNTIME"))
154
155
156
157
158
Note: See TracBrowser for help on using the repository browser.