Skip to content
Snippets Groups Projects
globals.lisp 2.6 KiB
Newer Older
ram's avatar
ram committed
;;; -*- 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* *hemlock-version*
		    *evalhook* *applyhook* *task-self* *command-line-switches*
ram's avatar
ram committed
		    *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*
ram's avatar
ram committed
		    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*
ram's avatar
ram committed
		    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*
ram's avatar
ram committed

		    ;; 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::%proclaim c::get-info-value
		  c::set-info-value find-keyword keyword-test assert-error
		  assert-prompt check-type-error case-body-error))