source: branches/working-0711/ccl/level-1/level-1.lisp @ 12339

Last change on this file since 12339 was 12339, checked in by gz, 10 years ago

Merge source location and code coverage implementation from the trunk. Some of the effects include:

  • make source notes take up less space
  • for code coverage, don't use with-code-coverage in pass2, therefore less impact on produced code.
  • accept method-function's in source location lookup
  • fix some cases that caused function source notes to not get recorded
  • record source files if source locations recording is not on.
  • record source locations in compile-time eval-when's.
  • better tracking of source notes through file compilation in some cases.
  • restore *fasl-eof-forms* support.
  • export a source-note API instead of converting to plists
  • only count emitted notes in cover coverage form totals
  • code coverage now more often has the source note for the whole definition.

Added :CCL-1.4 to *features*, to allow swank to be conditionalized for these changes (which will be part of CCL's 1.4 release)

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.9 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; 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  (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")
57  (bin-load "dll-node")
58  (l1-load "l1-unicode")
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")
68  (l1-load "l1-typesys")
69  (l1-load "sysutils")
70  #+ppc-target
71  (l1-load "ppc-threads-utils")
72  #+x86-target
73  (l1-load "x86-threads-utils")
74  (l1-load "l1-lisp-threads")
75  (l1-load "l1-application")
76  (l1-load "l1-processes")
77  (l1-load "l1-io")
78  (l1-load "l1-reader")
79  (l1-load "l1-readloop")
80  (l1-load "l1-readloop-lds")
81  (l1-load "l1-error-system")
82
83  (l1-load "l1-events")
84  #+ppc-target
85  (l1-load "ppc-trap-support")
86  #+x86-target
87  (l1-load "x86-trap-support")
88  (l1-load "l1-format")
89  (l1-load "l1-sysio")
90  (l1-load "l1-pathnames")
91  (l1-load "l1-boot-lds")
92
93  (l1-load "l1-boot-1")
94  (l1-load "l1-boot-2")
95  (l1-load "l1-boot-3")
96
97  )
98
99(require "PREPARE-MCL-ENVIRONMENT")
100(progn
101  (%set-toplevel #'(lambda ()
102                     (setq *loading-file-source-file* nil
103                           *loading-toplevel-location* nil)
104                     (toplevel-loop)))
105  (set-user-environment t)
106  (toplevel))
Note: See TracBrowser for help on using the repository browser.