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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (hide 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 ram 1.1 ;;; -*- Package: Lisp; Log: code.log -*-
2     ;;;
3     ;;; **********************************************************************
4 ram 1.5 ;;; 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 ram 1.7 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/globals.lisp,v 1.7 1993/08/25 01:13:31 ram Exp $")
11 ram 1.5 ;;;
12 ram 1.1 ;;; **********************************************************************
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 ram 1.7 (in-package "LISP")
23 ram 1.1
24     (proclaim '(special *keyword-package* *lisp-package* *package* *query-io*
25     *terminal-io* *error-output* *trace-output* *debug-io*
26 ram 1.4 *standard-input* *standard-output* *hemlock-version*
27     *evalhook* *applyhook* *task-self* *command-line-switches*
28 ram 1.1 *command-switch-demons* ext::temporary-foreign-files
29     *display-event-handlers* original-lisp-environment
30 ram 1.4 *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 ram 1.1 defmacro-error-string defsetf-error-string
35 ram 1.4 std-lisp-readtable hi::*in-the-editor*
36 wlott 1.6 debug::*in-the-debugger*
37 ram 1.4 conditions::*handler-clusters*
38     conditions::*restart-clusters* alloctable-address
39 wlott 1.6 *gc-inhibit* *need-to-collect-garbage*
40 ram 1.1 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 ram 1.4 *aborted-compilation-units* char-name-alist
45     *default-pathname-defaults* *beep-function*
46 wlott 1.6 *gc-notify-before* *gc-notify-after*))
47 ram 1.1
48    
49     (proclaim '(ftype (function (&rest t) *)
50     c::%%defun c::%%defmacro c::%%defconstant c::%defstruct
51 wlott 1.2 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