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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.13 - (show annotations)
Sat Aug 16 10:27:06 1997 UTC (16 years, 8 months ago) by dtc
Branch: MAIN
Changes since 1.12: +3 -2 lines
Add pcl::documentation.
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.13 1997/08/16 10:27:06 dtc Exp $")
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
22 (declaim (special *keyword-package* *lisp-package* *package* *query-io*
23 *terminal-io* *error-output* *trace-output* *debug-io*
24 *standard-input* *standard-output* *hemlock-version*
25 *evalhook* *applyhook* *command-line-switches*
26 *command-switch-demons* ext::temporary-foreign-files
27 *display-event-handlers* original-lisp-environment
28 *environment-list* *read-default-float-format*
29 *read-suppress* *readtable* *print-base* *print-radix*
30 *print-length* *print-level* *print-pretty* *print-escape*
31 *print-case* *print-circle* *print-gensym* *print-array*
32 defmacro-error-string defsetf-error-string
33 std-lisp-readtable hi::*in-the-editor*
34 debug::*in-the-debugger*
35 conditions::*handler-clusters*
36 conditions::*restart-clusters*
37 *gc-inhibit* *need-to-collect-garbage*
38 defmacro-error-string deftype-error-string
39 defsetf-error-string %sp-interrupts-inhibited
40 *software-interrupt-vector* *load-verbose*
41 *load-print-stuff* *in-compilation-unit*
42 *aborted-compilation-units* char-name-alist
43 *default-pathname-defaults* *beep-function*
44 *gc-notify-before* *gc-notify-after*))
45
46
47 (declaim (ftype (function * *)
48 find-keyword keyword-test assert-error
49 assert-prompt check-type-error case-body-error print-object
50 pcl::describe-object pcl::check-wrapper-validity
51 pcl::documentation))
52
53 #-clx
54 (declaim (ftype (function * *)
55 disable-clx-event-handling
56 extensions::call-display-event-handler
57 xlib::display-input-stream xlib:event-listen
58 flush-display-events))
59
60 #-hemlock
61 (declaim (ftype (function * *)
62 hemlock-internals::current-window
63 hemlock-internals::device-exit
64 hemlock-internals::device-hunk-device
65 hemlock-internals::device-init
66 hemlock::ts-stream-p hemlock::ts-stream-wire
67 hemlock-internals::window-hunk))

  ViewVC Help
Powered by ViewVC 1.1.5