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

Last change on this file since 7487 was 7487, checked in by gz, 13 years ago

Add :clozure-common-lisp to *features*.

Allow the init-file arg to startup-ccl to be a list of filenames -
the first one that exists is used. Make the lisp-development-system
application-init-file be the list of ccl-init and openmcl-init, but
warn if openmcl-init is the one that's actually used.

Delete cocoa-ide/OpenMCL.app to minimize confusion (this means
removing :clozure-common-lisp from *features* no longer works
for the IDE, although it still works for the command line build).

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 5.3 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    :clozure
29    :clozure-common-lisp
30    :ansi-cl
31    :unix
32    :openmcl-unicode-strings
33    ;; Threads and MOP stuff is pretty redundant.
34    :openmcl-native-threads
35    :openmcl-partial-mop
36    :mcl-common-mop-subset
37    :openmcl-mop-2
38    ;; Thread-private hash-tables were introduced in version 1.0
39    :openmcl-private-hash-tables
40    ;; Hash-consing support (special primitives for allocating
41    ;; and managing statically allocated CONS cells) will be
42    ;; added in 1.1
43    :openmcl-hash-consing
44    #+eabi-target :eabi-target
45    #+ppc-target :powerpc
46    #+ppc-target :ppc-target
47    #+ppc-target :ppc-clos              ; used in encapsulate
48    #+ppc32-target :ppc32-target
49    #+ppc32-target :ppc32-host
50    #+ppc64-target :ppc64-target
51    #+ppc64-target :ppc64-host
52    #+x8664-target :x86-64
53    #+x8664-target :x86_64
54    #+x86-target :x86-target
55    #+x86-target :x86-host
56    #+x8664-target :x8664-target
57    #+x8664-target :x8664-host
58    #+linux-target :linux-host
59    #+linux-target :linux-target
60    #+linuxppc-target :linuxppc-target
61    #+linuxppc-target :linuxppc-host
62    #+linuxx86-target :linuxx86-target
63    #+linuxx8664-target :linuxx8664-target
64    #+linuxx8664-target :linuxx8664-host
65    #+darwinppc-target :darwinppc-target
66    #+darwinppc-target :darwinppc-host
67    #+darwinppc-target :darwin
68    #+darwinppc-target :darwin-target
69    #+freebsd-target :freebsd-host
70    #+freebsd-target :freebsd-target
71    #+freebsdx86-target :freebsdx86-target
72    #+freebsdx8664-target :freebsdx8664-target
73    #+freebsdx8664-target :freebsdx8664-host
74    #+darwin-target :darwin-host
75    #+darwin-target :darwin-target
76    #+darwinx86-target :darwinx86-target
77    #+darwinx8664-target :darwinx8664-target
78    #+darwinx8664-target :darwinx8664-host
79    #+poweropen-target :poweropen-target
80    #+64-bit-target :64-bit-target
81    #+64-bit-target :64-bit-host
82    #+32-bit-target :32-bit-target
83    #+32-bit-target :32-bit-host
84    #+ppc-target :big-endian-target
85    #+ppc-target :big-endian-host
86    #+x86-target :little-endian-target
87    #+x86-target :little-endian-host
88    :mcl                                ;deprecated
89    )
90  "a list of symbols that describe features provided by the
91   implementation")
92(defparameter *load-verbose* nil
93  "the default for the :VERBOSE argument to LOAD")
94
95;All Lisp package variables... Dunno if this still matters, but it
96;used to happen in the kernel...
97(dolist (x '(* ** *** *APPLYHOOK* *DEBUG-IO*
98             *DEFAULT-PATHNAME-DEFAULTS* *ERROR-OUTPUT* *EVALHOOK*
99             *FEATURES* *LOAD-VERBOSE* *MACROEXPAND-HOOK* *MODULES*
100             *PACKAGE* *PRINT-ARRAY* *PRINT-BASE* *PRINT-CASE* *PRINT-CIRCLE*
101             *PRINT-ESCAPE* *PRINT-GENSYM* *PRINT-LENGTH* *PRINT-LEVEL*
102             *PRINT-PRETTY* *PRINT-RADIX* *QUERY-IO* *RANDOM-STATE* *READ-BASE*
103             *READ-DEFAULT-FLOAT-FORMAT* *READ-SUPPRESS* *READTABLE*
104             *STANDARD-INPUT* *STANDARD-OUTPUT* *TERMINAL-IO* *TRACE-OUTPUT*
105             + ++ +++ - / // /// ARRAY-DIMENSION-LIMIT ARRAY-RANK-LIMIT
106             ARRAY-TOTAL-SIZE-LIMIT BOOLE-1 BOOLE-2 BOOLE-AND BOOLE-ANDC1
107             BOOLE-ANDC2 BOOLE-C1 BOOLE-C2 BOOLE-CLR BOOLE-EQV BOOLE-IOR
108             BOOLE-NAND BOOLE-NOR BOOLE-ORC1 BOOLE-ORC2 BOOLE-SET BOOLE-XOR
109             CALL-ARGUMENTS-LIMIT CHAR-CODE-LIMIT
110             DOUBLE-FLOAT-EPSILON DOUBLE-FLOAT-NEGATIVE-EPSILON
111             INTERNAL-TIME-UNITS-PER-SECOND LAMBDA-LIST-KEYWORDS
112             LAMBDA-PARAMETERS-LIMIT LEAST-NEGATIVE-DOUBLE-FLOAT
113             LEAST-NEGATIVE-LONG-FLOAT LEAST-NEGATIVE-SHORT-FLOAT
114             LEAST-NEGATIVE-SINGLE-FLOAT LEAST-POSITIVE-DOUBLE-FLOAT
115             LEAST-POSITIVE-LONG-FLOAT LEAST-POSITIVE-SHORT-FLOAT
116             LEAST-POSITIVE-SINGLE-FLOAT LONG-FLOAT-EPSILON
117             LONG-FLOAT-NEGATIVE-EPSILON MOST-NEGATIVE-DOUBLE-FLOAT
118             MOST-NEGATIVE-FIXNUM MOST-NEGATIVE-LONG-FLOAT
119             MOST-NEGATIVE-SHORT-FLOAT MOST-NEGATIVE-SINGLE-FLOAT
120             MOST-POSITIVE-DOUBLE-FLOAT MOST-POSITIVE-FIXNUM
121             MOST-POSITIVE-LONG-FLOAT MOST-POSITIVE-SHORT-FLOAT
122             MOST-POSITIVE-SINGLE-FLOAT MULTIPLE-VALUES-LIMIT PI
123             SHORT-FLOAT-EPSILON SHORT-FLOAT-NEGATIVE-EPSILON
124             SINGLE-FLOAT-EPSILON SINGLE-FLOAT-NEGATIVE-EPSILON))
125  (%symbol-bits x (%ilogior2 (%symbol-bits x) (ash 1 $sym_bit_special))))
126
127(defparameter *loading-file-source-file* nil)
128
129(defvar *nx-speed* 1)
130(defvar *nx-space* 1)
131(defvar *nx-safety* 1)
132(defvar *nx-cspeed* 1)
133(defvar *nx-debug* 1)
134
135;;; end
Note: See TracBrowser for help on using the repository browser.