source: branches/working-0711/ccl/level-0/l0-init.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: 6.5 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(in-package "CCL")
18
19(defconstant array-total-size-limit
20  #.(expt 2 (- target::nbits-in-word target::num-subtag-bits))
21  "the exclusive upper bound on the total number of elements in an array")
22
23
24;Features for #+/- conditionalization:
25(defparameter *features*
26  '(:common-lisp
27    :openmcl
28    :ccl
29    :ccl-1.2
30    :ccl-1.3
31    :ccl-1.4
32    :ccl-0711
33    :clozure
34    :clozure-common-lisp
35    :ansi-cl
36    #-windows-target :unix
37    :openmcl-unicode-strings
38    ;; Threads and MOP stuff is pretty redundant.
39    :openmcl-native-threads
40    :openmcl-partial-mop
41    :mcl-common-mop-subset
42    :openmcl-mop-2
43    ;; Thread-private hash-tables were introduced in version 1.0
44    :openmcl-private-hash-tables
45    ;; Hash-consing support (special primitives for allocating
46    ;; and managing statically allocated CONS cells) will be
47    ;; added in 1.1
48    ;; Was dropped in 1.2
49    ;; :openmcl-hash-consing
50    #+eabi-target :eabi-target
51    #+ppc-target :powerpc
52    #+ppc-target :ppc-target
53    #+ppc-target :ppc-clos              ; used in encapsulate
54    #+ppc32-target :ppc32-target
55    #+ppc32-target :ppc32-host
56    #+ppc64-target :ppc64-target
57    #+ppc64-target :ppc64-host
58    #+x8632-target :x8632-target
59    #+x8632-target :x8632-host
60    #+x8664-target :x86-64
61    #+x8664-target :x86_64
62    #+x8632-target :x86
63    #+x86-target :x86-target
64    #+x86-target :x86-host
65    #+x8664-target :x8664-target
66    #+x8664-target :x8664-host
67    #+linux-target :linux-host
68    #+linux-target :linux-target
69    #+linuxppc-target :linuxppc-target
70    #+linuxppc-target :linuxppc-host
71    #+linuxx86-target :linuxx86-target
72    #+linuxx8664-target :linuxx8664-target
73    #+linuxx8664-target :linuxx8664-host
74    #+linuxx8632-target :linuxx8632-target
75    #+linuxx8632-target :linuxx8632-host
76    #+darwinppc-target :darwinppc-target
77    #+darwinppc-target :darwinppc-host
78    #+darwinppc-target :darwin-target
79    #+freebsd-target :freebsd-host
80    #+freebsd-target :freebsd-target
81    #+freebsdx86-target :freebsdx86-target
82    #+freebsdx8664-target :freebsdx8664-target
83    #+freebsdx8664-target :freebsdx8664-host
84    #+freebsdx8632-target :freebsdx8632-target
85    #+freebsdx8632-target :freebsdx8632-host
86    #+darwin-target :darwin-host
87    #+darwin-target :darwin-target
88    #+darwinx86-target :darwinx86-target
89    #+darwinx8632-target :darwinx8632-target
90    #+darwinx8632-target :darwinx8632-host
91    #+darwinx8664-target :darwinx8664-target
92    #+darwinx8664-target :darwinx8664-host
93    #+windows-target :windows-host
94    #+windows-target :windows-target
95    #+win64-target :win64-target
96    #+win64-target :win64-host
97    #+win32-target :win32-target
98    #+win32-target :win32-host
99    #+solaris-target :solaris-host
100    #+solaris-target :solaris-target
101    #+solarisx86-target :solarisx86-target
102    #+solarisx8664-target :solarisx8664-target
103    #+solarisx8664-target :solarisx8664-host
104    #+solarisx8632-target :solarisx8632-target
105    #+solarisx8632-target :solarisx8632-host
106    #+(and ppc-target poweropen-target) :poweropen-target
107    #+64-bit-target :64-bit-target
108    #+64-bit-target :64-bit-host
109    #+32-bit-target :32-bit-target
110    #+32-bit-target :32-bit-host
111    #+ppc-target :big-endian-target
112    #+ppc-target :big-endian-host
113    #+x86-target :little-endian-target
114    #+x86-target :little-endian-host
115    #+darwin-target :darwin
116    #+linux-target :linux
117    #+freebsd-target :freebsd
118    #+solaris-target :solaris
119    #+windows-target :windows
120    ;; :mcl                                ;deprecated
121    )
122  "a list of symbols that describe features provided by the
123   implementation")
124
125(defparameter *optional-features* () "Set by build process")
126
127(defparameter *load-verbose* nil
128  "the default for the :VERBOSE argument to LOAD")
129
130;All Lisp package variables... Dunno if this still matters, but it
131;used to happen in the kernel...
132(dolist (x '(* ** *** *APPLYHOOK* *DEBUG-IO*
133             *DEFAULT-PATHNAME-DEFAULTS* *ERROR-OUTPUT* *EVALHOOK*
134             *FEATURES* *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES*
135             *PACKAGE* *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* *PRINT-CIRCLE*
136             *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH* *PRINT-LEVEL*
137             *PRINT-PRETTY* *PRINT-RADIX* *QUERY-IO* *RANDOM-STATE* *READ-BASE*
138             *READ-DEFAULT-FLOAT-FORMAT* *READ-SUPPRESS* *READTABLE*
139             *STANDARD-INPUT* *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT*
140             + ++ +++ - / // /// ARRAY-DIMENSION-LIMIT ARRAY-RANK-LIMIT
141             ARRAY-TOTAL-SIZE-LIMIT BOOLE-1 BOOLE-2 BOOLE-AND BOOLE-ANDC1
142             BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 BOOLE-CLR BOOLE-EQV BOOLE-IOR
143             BOOLE-NAND BOOLE-NOR BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR
144             CALL-ARGUMENTS-LIMIT CHAR-CODE-LIMIT
145             DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
146             INTERNAL-TIME-UNITS-PER-SECOND LAMBDA-LIST-KEYWORDS
147             LAMBDA-PARAMETERS-LIMIT LEAST-NEGATIVE-DOUBLE-FLOAT
148             LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SHORT-FLOAT
149             LEAST-NEGATIVE-SINGLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
150             LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SHORT-FLOAT
151             LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT-EPSILON
152             LONG-FLOAT-NEGATIVE-EPSILON MOST-NEGATIVE-DOUBLE-FLOAT
153             MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT
154             MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
155             MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM
156             MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT
157             MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT PI
158             SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
159             SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON))
160  (%symbol-bits x (%ilogior2 (%symbol-bits x) (ash 1 $sym_bit_special))))
161
162(defparameter *loading-file-source-file* nil)
163(defparameter *loading-toplevel-location* nil)
164
165(defvar *nx-speed* 1)
166(defvar *nx-space* 1)
167(defvar *nx-safety* 1)
168(defvar *nx-cspeed* 1)
169(defvar *nx-debug* 1)
170
171(defparameter *case-sensitive-filesystem* t)
172
173;;; end
Note: See TracBrowser for help on using the repository browser.