Newer
Older
;;; -*- Package: Lisp; Log: code.log -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.13 1997/08/16 10:27:06 dtc Exp $")
;;; **********************************************************************
;;;
;;; This file contains special proclamations for variables that are
;;; referenced in the code sources before they are defined. There is also a
;;; function proclamation to make some common functions be known, avoiding
;;; large amounts of work in recording the calls that are done before the
;;; definition.
;;;
;;; Written by Rob MacLachlan
;;;
(declaim (special *keyword-package* *lisp-package* *package* *query-io*
*terminal-io* *error-output* *trace-output* *debug-io*
*standard-input* *standard-output* *hemlock-version*
*evalhook* *applyhook* *command-line-switches*
*command-switch-demons* ext::temporary-foreign-files
*display-event-handlers* original-lisp-environment
*environment-list* *read-default-float-format*
*read-suppress* *readtable* *print-base* *print-radix*
*print-length* *print-level* *print-pretty* *print-escape*
*print-case* *print-circle* *print-gensym* *print-array*
defmacro-error-string defsetf-error-string
std-lisp-readtable hi::*in-the-editor*
debug::*in-the-debugger*
conditions::*handler-clusters*
conditions::*restart-clusters*
*gc-inhibit* *need-to-collect-garbage*
defmacro-error-string deftype-error-string
defsetf-error-string %sp-interrupts-inhibited
*software-interrupt-vector* *load-verbose*
*load-print-stuff* *in-compilation-unit*
*aborted-compilation-units* char-name-alist
*default-pathname-defaults* *beep-function*
*gc-notify-before* *gc-notify-after*))
(declaim (ftype (function * *)
find-keyword keyword-test assert-error
pcl::describe-object pcl::check-wrapper-validity
pcl::documentation))
#-clx
(declaim (ftype (function * *)
disable-clx-event-handling
extensions::call-display-event-handler
xlib::display-input-stream xlib:event-listen
flush-display-events))
#-hemlock
(declaim (ftype (function * *)
hemlock-internals::current-window
hemlock-internals::device-exit
hemlock-internals::device-hunk-device
hemlock-internals::device-init
hemlock::ts-stream-p hemlock::ts-stream-wire
hemlock-internals::window-hunk))