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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.12 - (show annotations)
Thu Feb 6 00:34:07 1997 UTC (17 years, 2 months ago) by pw
Branch: MAIN
Branch point for: RELENG_18
Changes since 1.11: +2 -2 lines
Fix failure of typep on instance with changed PCL defclass
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.12 1997/02/06 00:34:07 pw 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
52 #-clx
53 (declaim (ftype (function * *)
54 disable-clx-event-handling
55 extensions::call-display-event-handler
56 xlib::display-input-stream xlib:event-listen
57 flush-display-events))
58
59 #-hemlock
60 (declaim (ftype (function * *)
61 hemlock-internals::current-window
62 hemlock-internals::device-exit
63 hemlock-internals::device-hunk-device
64 hemlock-internals::device-init
65 hemlock::ts-stream-p hemlock::ts-stream-wire
66 hemlock-internals::window-hunk))

  ViewVC Help
Powered by ViewVC 1.1.5