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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sat May 12 20:09:57 1990 UTC (23 years, 11 months ago) by ram
Branch: MAIN
Changes since 1.2: +2 -0 lines
Added some more globals, these used by Hemlock.
1 ;;; -*- Package: Lisp; Log: code.log -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the Spice 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 Spice Lisp, please contact
7 ;;; Scott Fahlman (FAHLMAN@CMUC).
8 ;;; **********************************************************************
9 ;;;
10 ;;; This file contains special proclamations for variables that are
11 ;;; referenced in the code sources before they are defined. There is also a
12 ;;; function proclamation to make some common functions be known, avoiding
13 ;;; large amounts of work in recording the calls that are done before the
14 ;;; definition.
15 ;;;
16 ;;; Written by Rob MacLachlan
17 ;;;
18 (in-package 'lisp)
19
20 (proclaim '(special *keyword-package* *lisp-package* *package* *query-io*
21 *terminal-io* *error-output* *trace-output* *debug-io*
22 *standard-input* *standard-output* *file-input-handlers*
23 *hemlock-version* *evalhook* *applyhook*
24 *task-self* *command-line-switches*
25 *command-switch-demons* ext::temporary-foreign-files
26 *display-event-handlers* original-lisp-environment
27 *environment-list*
28 *read-default-float-format* *read-suppress* *readtable*
29 *print-base* *print-radix* *print-length* *print-level*
30 *print-pretty* *print-escape* *print-case* *print-circle*
31 *print-gensym* *print-array*
32 defmacro-error-string defsetf-error-string
33 std-lisp-readtable
34 hi::*in-the-editor* debug::*in-the-debugger*
35 mach::*free-trap-arg-blocks* conditions::*handler-clusters*
36 conditions::*restart-clusters*
37 alloctable-address ext::*c-type-names* *gc-inhibit*
38 *need-to-collect-garbage*
39 defmacro-error-string deftype-error-string
40 defsetf-error-string %sp-interrupts-inhibited
41 *software-interrupt-vector* *load-verbose*
42 *load-print-stuff* *in-compilation-unit*
43 *aborted-compilation-units*
44 char-name-alist *default-pathname-defaults*
45 *beep-function* *gc-notify-before* *gc-notify-after*
46
47 ;; hack to get these args to with-trap-arg-block to work in
48 ;; the bootstrapping env, since the var must be known to be
49 ;; special, in addition to being known to be an alien var.
50 mach::timeval mach::timezone mach::int1 mach::int2
51 mach::int3 mach::tchars mach::ltchars))
52
53
54 (proclaim '(ftype (function (&rest t) *)
55 c::%%defun c::%%defmacro c::%%defconstant c::%defstruct
56 c::%%compiler-defstruct c::%proclaim c::get-info-value
57 c::set-info-value find-keyword keyword-test assert-error
58 assert-prompt check-type-error case-body-error))

  ViewVC Help
Powered by ViewVC 1.1.5