/[cmucl]/src/code/globals.lisp
ViewVC logotype

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.20 - (show annotations)
Fri Mar 19 15:18:59 2010 UTC (4 years ago) by rtoy
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, post-merge-intl-branch, release-20b-pre1, release-20b-pre2, sparc-tramp-assem-2010-07-19, GIT-CONVERSION, cross-sol-x86-merged, RELEASE_20b, cross-sol-x86-base, snapshot-2010-12, snapshot-2010-11, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-08, cross-sol-x86-2010-12-20, cross-sparc-branch-base, HEAD
Branch point for: cross-sparc-branch, RELEASE-20B-BRANCH, sparc-tramp-assem-branch, cross-sol-x86-branch
Changes since 1.19: +3 -1 lines
Merge intl-branch 2010-03-18 to HEAD.  To build, you need to use
boot-2010-02-1 as the bootstrap file.  You should probably also use
the new -P option for build.sh to generate and update the po files
while building.
1 ;;; -*- Package: Lisp; Log: code.log -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/globals.lisp,v 1.20 2010/03/19 15:18:59 rtoy Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; This file contains special proclamations for variables that are
13 ;;; referenced in the code sources before they are defined. There is also a
14 ;;; function proclamation to make some common functions be known, avoiding
15 ;;; large amounts of work in recording the calls that are done before the
16 ;;; definition.
17 ;;;
18 ;;; Written by Rob MacLachlan
19 ;;;
20 (in-package "LISP")
21 (intl:textdomain "cmucl")
22
23
24 (declaim (special *keyword-package* *lisp-package* *package* *query-io*
25 *terminal-io* *error-output* *trace-output* *debug-io*
26 *standard-input* *standard-output*
27 *evalhook* *applyhook* *command-line-switches*
28 *command-switch-demons*
29 *display-event-handlers* original-lisp-environment
30 *environment-list* *read-default-float-format*
31 *read-suppress* *readtable* *print-base* *print-radix*
32 *print-length* *print-level* *print-pretty* *print-escape*
33 *print-case* *print-circle* *print-gensym* *print-array*
34 defmacro-error-string defsetf-error-string
35 std-lisp-readtable #-no-hemlock hi::*in-the-editor*
36 debug::*in-the-debugger*
37 conditions::*handler-clusters*
38 conditions::*restart-clusters*
39 *gc-inhibit* *need-to-collect-garbage*
40 defmacro-error-string deftype-error-string
41 defsetf-error-string %sp-interrupts-inhibited
42 *software-interrupt-vector* *load-verbose*
43 *load-print-stuff* *in-compilation-unit*
44 *aborted-compilation-units* char-name-alist
45 *default-pathname-defaults* *beep-function*
46 *gc-notify-before* *gc-notify-after*))
47
48
49 (declaim (ftype (function * *)
50 find-keyword keyword-test assert-error
51 assert-prompt check-type-error case-body-error print-object
52 describe-object pcl::check-wrapper-validity))
53
54 #-clx
55 (declaim (ftype (function * *)
56 disable-clx-event-handling
57 extensions::call-display-event-handler
58 xlib::display-input-stream xlib::event-listen
59 flush-display-events))
60
61 #-hemlock
62 (declaim (ftype (function * *)
63 hemlock-internals::current-window
64 hemlock-internals::device-exit
65 hemlock-internals::device-hunk-device
66 hemlock-internals::device-init
67 hemlock::ts-stream-p hemlock::ts-stream-wire
68 hemlock-internals::window-hunk))
69
70 ;;; Gray streams functions not defined until after PCL is loaded.
71 (declaim (ftype (function * *)
72 stream-advance-to-column stream-clear-input
73 stream-clear-output stream-finish-output stream-force-output
74 stream-fresh-line stream-line-column stream-line-length
75 stream-listen stream-peek-char stream-read-byte
76 stream-read-char stream-read-char-no-hang stream-read-line
77 stream-start-line-p stream-terpri stream-unread-char
78 stream-write-byte stream-write-char stream-write-string
79 stream-read-sequence stream-write-sequence))

  ViewVC Help
Powered by ViewVC 1.1.5