source: trunk/source/level-1/level-1.lisp @ 16685

Last change on this file since 16685 was 16685, checked in by rme, 4 years ago

Update copyright/license headers in files.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.1 KB
Line 
1;;-*-Mode: LISP; Package: CCL -*-
2;;;
3;;; Copyright 1994-2009 Clozure Associates
4;;;
5;;; Licensed under the Apache License, Version 2.0 (the "License");
6;;; you may not use this file except in compliance with the License.
7;;; You may obtain a copy of the License at
8;;;
9;;;     http://www.apache.org/licenses/LICENSE-2.0
10;;;
11;;; Unless required by applicable law or agreed to in writing, software
12;;; distributed under the License is distributed on an "AS IS" BASIS,
13;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14;;; See the License for the specific language governing permissions and
15;;; limitations under the License.
16
17; Level-1.lisp
18
19(in-package "CCL")
20
21(macrolet ((l1-load (name)
22             (let* ((namestring
23                     (concatenate 'simple-base-string
24                                  "./l1-fasls/"
25                                  (string name)
26                                  (namestring (backend-target-fasl-pathname
27                                               *target-backend*)))))
28               `(%fasload ,namestring)))
29           (bin-load (name)
30             (let* ((namestring
31                     (concatenate 'simple-base-string
32                                  "./bin/"
33                                  (string name)
34                                  (namestring (backend-target-fasl-pathname
35                                               *target-backend*)))))
36               `(%fasload ,namestring))))
37
38  (l1-load "l1-cl-package")
39  (l1-load "l1-utils")
40  (l1-load "l1-init")
41  (l1-load "l1-symhash")
42  (l1-load "l1-numbers")
43  (l1-load "l1-aprims")
44  #+ppc-target
45  (l1-load "ppc-callback-support")
46  #+x86-target
47  (l1-load "x86-callback-support")
48  #+arm-target
49  (l1-load "arm-callback-support")
50  (l1-load "l1-callbacks")
51  (l1-load "l1-sort")
52  (bin-load "lists")
53  (bin-load "sequences")
54  (l1-load "l1-dcode")
55  (l1-load "l1-clos-boot")
56  (bin-load "hash")
57  (l1-load "l1-clos")
58  (bin-load "defstruct")
59  (bin-load "dll-node")
60  (l1-load "l1-unicode")
61  (l1-load "l1-streams")
62  (l1-load "linux-files")
63  (bin-load "chars")
64  (l1-load "l1-files")
65  (provide "SEQUENCES")
66  (provide "DEFSTRUCT")
67  (provide "CHARS")
68  (provide "LISTS")
69  (provide "DLL-NODE")
70  (l1-load "l1-typesys")
71  (l1-load "sysutils")
72  #+ppc-target
73  (l1-load "ppc-threads-utils")
74  #+x86-target
75  (l1-load "x86-threads-utils")
76  #+arm-target
77  (l1-load "arm-threads-utils")
78  (l1-load "l1-lisp-threads")
79  (l1-load "l1-application")
80  (l1-load "l1-processes")
81  (l1-load "l1-io")
82  (l1-load "l1-reader")
83  (l1-load "l1-readloop")
84  (l1-load "l1-readloop-lds")
85  (l1-load "l1-error-system")
86
87  (l1-load "l1-events")
88  #+ppc-target
89  (l1-load "ppc-trap-support")
90  #+x86-target
91  (l1-load "x86-trap-support")
92  #+arm-target
93  (l1-load "arm-trap-support")
94  (l1-load "l1-format")
95  (l1-load "l1-sysio")
96  (l1-load "l1-pathnames")
97  (l1-load "l1-boot-lds")
98
99  (l1-load "l1-boot-1")
100  (l1-load "l1-boot-2")
101  (l1-load "l1-boot-3")
102
103  )
104
105(require "PREPARE-MCL-ENVIRONMENT")
106(progn
107  (%set-toplevel #'(lambda ()
108                     (setq *loading-file-source-file* nil
109                           *loading-toplevel-location* nil)
110                     (toplevel-loop)))
111  (set-user-environment t)
112  (toplevel))
Note: See TracBrowser for help on using the repository browser.