Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
;;; -*- Package: Lisp; Log: code.log -*-
;;;
;;; **********************************************************************
;;; This code was written as part of the Spice Lisp project at
;;; Carnegie-Mellon University, and has been placed in the public domain.
;;; If you want to use this code or any part of Spice Lisp, please contact
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; 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
;;;
(in-package 'lisp)
(proclaim '(special *keyword-package* *lisp-package* *package* *query-io*
*terminal-io* *error-output* *trace-output* *debug-io*
*standard-input* *standard-output* *file-input-handlers*
*hemlock-version* *evalhook* *applyhook*
*task-self* *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*
mach::*free-trap-arg-blocks* conditions::*handler-clusters*
conditions::*restart-clusters*
alloctable-address ext::*c-type-names* *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*
;; hack to get these args to with-trap-arg-block to work in
;; the bootstrapping env, since the var must be known to be
;; special, in addition to being known to be an alien var.
mach::timeval mach::timezone mach::int1 mach::int2
mach::int3 mach::tchars mach::ltchars))
(proclaim '(ftype (function (&rest t) *)
c::%%defun c::%%defmacro c::%%defconstant c::%defstruct
c::%%compiler-defstruct c::get-info-value c::set-info-value
find-keyword keyword-test assert-error assert-prompt
check-type-error case-body-error))