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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (show annotations)
Wed Aug 25 01:13:31 1993 UTC (20 years, 7 months ago) by ram
Branch: MAIN
Changes since 1.6: +2 -2 lines
Fix compiler warnings.
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 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
7 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
8 ;;;
9 (ext:file-comment
10 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/globals.lisp,v 1.7 1993/08/25 01:13:31 ram Exp $")
11 ;;;
12 ;;; **********************************************************************
13 ;;;
14 ;;; This file contains special proclamations for variables that are
15 ;;; referenced in the code sources before they are defined. There is also a
16 ;;; function proclamation to make some common functions be known, avoiding
17 ;;; large amounts of work in recording the calls that are done before the
18 ;;; definition.
19 ;;;
20 ;;; Written by Rob MacLachlan
21 ;;;
22 (in-package "LISP")
23
24 (proclaim '(special *keyword-package* *lisp-package* *package* *query-io*
25 *terminal-io* *error-output* *trace-output* *debug-io*
26 *standard-input* *standard-output* *hemlock-version*
27 *evalhook* *applyhook* *task-self* *command-line-switches*
28 *command-switch-demons* ext::temporary-foreign-files
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 hi::*in-the-editor*
36 debug::*in-the-debugger*
37 conditions::*handler-clusters*
38 conditions::*restart-clusters* alloctable-address
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 (proclaim '(ftype (function (&rest t) *)
50 c::%%defun c::%%defmacro c::%%defconstant c::%defstruct
51 c::%%compiler-defstruct c::%proclaim c::get-info-value
52 c::set-info-value find-keyword keyword-test assert-error
53 assert-prompt check-type-error case-body-error))

  ViewVC Help
Powered by ViewVC 1.1.5