home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / code / globals.lisp < prev    next >
Encoding:
Text File  |  1992-05-30  |  2.4 KB  |  54 lines
  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: globals.lisp,v 1.6 92/03/03 18:59:53 wlott 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))
  54.