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

Last change on this file since 15278 was 14119, checked in by gb, 9 years ago

Changes from ARM branch. Need testing ...

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 3.1 KB
RevLine 
[6]1;;-*-Mode: LISP; Package: CCL -*-
2;;;
[13067]3;;;   Copyright (C) 2009 Clozure Associates
[6]4;;;   Copyright (C) 1994-2001 Digitool, Inc
[13066]5;;;   This file is part of Clozure CL. 
[6]6;;;
[13066]7;;;   Clozure CL is licensed under the terms of the Lisp Lesser GNU Public
8;;;   License , known as the LLGPL and distributed with Clozure CL as the
[6]9;;;   file "LICENSE".  The LLGPL consists of a preamble and the LGPL,
[13066]10;;;   which is distributed with Clozure CL as the file "LGPL".  Where these
[6]11;;;   conflict, the preamble takes precedence. 
12;;;
[13066]13;;;   Clozure CL is referenced in the preamble as the "LIBRARY."
[6]14;;;
15;;;   The LLGPL is also available online at
16;;;   http://opensource.franz.com/preamble.html
17
18; Level-1.lisp
19
[2326]20(in-package "CCL")
[6]21
22(macrolet ((l1-load (name)
23             (let* ((namestring
24                     (concatenate 'simple-base-string
[3790]25                                  "./l1-fasls/"
[6]26                                  (string name)
[3786]27                                  (namestring (backend-target-fasl-pathname
28                                               *target-backend*)))))
[6]29               `(%fasload ,namestring)))
30           (bin-load (name)
31             (let* ((namestring
32                     (concatenate 'simple-base-string
[3790]33                                  "./bin/"
[6]34                                  (string name)
[3786]35                                  (namestring (backend-target-fasl-pathname
36                                               *target-backend*)))))
[6]37               `(%fasload ,namestring))))
38
39  (l1-load "l1-cl-package")
40  (l1-load "l1-utils")
41  (l1-load "l1-init")
42  (l1-load "l1-symhash")
43  (l1-load "l1-numbers")
44  (l1-load "l1-aprims")
45  #+ppc-target
46  (l1-load "ppc-callback-support")
[3961]47  #+x86-target
48  (l1-load "x86-callback-support")
[14119]49  #+arm-target
50  (l1-load "arm-callback-support")
[6]51  (l1-load "l1-callbacks")
52  (l1-load "l1-sort")
53  (bin-load "lists")
54  (bin-load "sequences")
55  (l1-load "l1-dcode")
56  (l1-load "l1-clos-boot")
57  (bin-load "hash")
58  (l1-load "l1-clos")
59  (bin-load "defstruct")
[476]60  (bin-load "dll-node")
[5173]61  (l1-load "l1-unicode")
[6]62  (l1-load "l1-streams")
63  (l1-load "linux-files")
64  (bin-load "chars")
65  (l1-load "l1-files")
66  (provide "SEQUENCES")
67  (provide "DEFSTRUCT")
68  (provide "CHARS")
69  (provide "LISTS")
70  (provide "DLL-NODE")
[2705]71  (l1-load "l1-typesys")
72  (l1-load "sysutils")
[3786]73  #+ppc-target
[6]74  (l1-load "ppc-threads-utils")
[3961]75  #+x86-target
76  (l1-load "x86-threads-utils")
[14119]77  #+arm-target
78  (l1-load "arm-threads-utils")
[6]79  (l1-load "l1-lisp-threads")
[685]80  (l1-load "l1-application")
[6]81  (l1-load "l1-processes")
82  (l1-load "l1-io")
83  (l1-load "l1-reader")
84  (l1-load "l1-readloop")
[1670]85  (l1-load "l1-readloop-lds")
[6]86  (l1-load "l1-error-system")
87
88  (l1-load "l1-events")
[3786]89  #+ppc-target
[6]90  (l1-load "ppc-trap-support")
[3961]91  #+x86-target
92  (l1-load "x86-trap-support")
[14119]93  #+arm-target
94  (l1-load "arm-trap-support")
[6]95  (l1-load "l1-format")
96  (l1-load "l1-sysio")
97  (l1-load "l1-pathnames")
[1670]98  (l1-load "l1-boot-lds")
[6]99
100  (l1-load "l1-boot-1")
101  (l1-load "l1-boot-2")
102  (l1-load "l1-boot-3")
[11135]103
[6]104  )
105
106(require "PREPARE-MCL-ENVIRONMENT")
[11135]107(progn
[12337]108  (%set-toplevel #'(lambda ()
109                     (setq *loading-file-source-file* nil
110                           *loading-toplevel-location* nil)
111                     (toplevel-loop)))
[11135]112  (set-user-environment t)
113  (toplevel))
Note: See TracBrowser for help on using the repository browser.