source: trunk/source/level-0/l0-init.lisp @ 15220

Last change on this file since 15220 was 15220, checked in by rme, 7 years ago

Add :ccl-1.8 to *features*.

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