source: trunk/ccl/level-1/level-1.lisp @ 5173

Last change on this file since 5173 was 5173, checked in by gb, 13 years ago

Load l1-unicode.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.7 KB
RevLine 
[6]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; Level-1.lisp
18
[2326]19(in-package "CCL")
[6]20
21(macrolet ((l1-load (name)
22             (let* ((namestring
23                     (concatenate 'simple-base-string
[3790]24                                  "./l1-fasls/"
[6]25                                  (string name)
[3786]26                                  (namestring (backend-target-fasl-pathname
27                                               *target-backend*)))))
[6]28               `(%fasload ,namestring)))
29           (bin-load (name)
30             (let* ((namestring
31                     (concatenate 'simple-base-string
[3790]32                                  "./bin/"
[6]33                                  (string name)
[3786]34                                  (namestring (backend-target-fasl-pathname
35                                               *target-backend*)))))
[6]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")
[3961]46  #+x86-target
47  (l1-load "x86-callback-support")
[6]48  (l1-load "l1-callbacks")
49  (l1-load "l1-sort")
50  (bin-load "lists")
51  (bin-load "sequences")
52  (l1-load "l1-dcode")
53  (l1-load "l1-clos-boot")
54  (bin-load "hash")
55  (l1-load "l1-clos")
56  (bin-load "defstruct")
[476]57  (bin-load "dll-node")
[5173]58  (l1-load "l1-unicode")
[6]59  (l1-load "l1-streams")
60  (l1-load "linux-files")
61  (bin-load "chars")
62  (l1-load "l1-files")
63  (provide "SEQUENCES")
64  (provide "DEFSTRUCT")
65  (provide "CHARS")
66  (provide "LISTS")
67  (provide "DLL-NODE")
[2705]68  (l1-load "l1-typesys")
69  (l1-load "sysutils")
[3786]70  #+ppc-target
[6]71  (l1-load "ppc-threads-utils")
[3961]72  #+x86-target
73  (l1-load "x86-threads-utils")
[6]74  (l1-load "l1-lisp-threads")
[685]75  (l1-load "l1-application")
[6]76  (l1-load "l1-processes")
77  (l1-load "l1-io")
78  (l1-load "l1-reader")
79  (l1-load "l1-readloop")
[1670]80  (l1-load "l1-readloop-lds")
[6]81  (l1-load "l1-error-system")
82
83  (l1-load "l1-events")
[3786]84  #+ppc-target
[6]85  (l1-load "ppc-trap-support")
[3961]86  #+x86-target
87  (l1-load "x86-trap-support")
[6]88  (l1-load "l1-format")
89  (l1-load "l1-sysio")
90  (l1-load "l1-pathnames")
[1670]91  (l1-load "l1-boot-lds")
[6]92
93  (l1-load "l1-boot-1")
94  (l1-load "l1-boot-2")
95  (l1-load "l1-boot-3")
96  )
97
98(require "PREPARE-MCL-ENVIRONMENT")
[1670]99(progn (%set-toplevel #'toplevel-loop) (set-user-environment t) (toplevel))
[6]100
101
102
103
Note: See TracBrowser for help on using the repository browser.