From 1a1f7b8975c7f600d12c19a66b7923430ebd3105 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 5 Oct 1994 16:40:38 +0000 Subject: [PATCH] Tweaked to not clash with stuff being compiled. --- code/globals.lisp | 81 +++++++++++++++++++++++++---------------------- 1 file changed, 43 insertions(+), 38 deletions(-) diff --git a/code/globals.lisp b/code/globals.lisp index ab3f50780..d9ef81ea6 100644 --- a/code/globals.lisp +++ b/code/globals.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.8 1994/10/02 22:36:48 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/globals.lisp,v 1.9 1994/10/05 16:40:38 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -21,42 +21,47 @@ ;;; (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* - *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* - conditions::*handler-clusters* - conditions::*restart-clusters* alloctable-address - *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* char-name-alist - *default-pathname-defaults* *beep-function* - *gc-notify-before* *gc-notify-after*)) +(declaim (special *keyword-package* *lisp-package* *package* *query-io* + *terminal-io* *error-output* *trace-output* *debug-io* + *standard-input* *standard-output* *hemlock-version* + *evalhook* *applyhook* *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* + conditions::*handler-clusters* + conditions::*restart-clusters* + *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* char-name-alist + *default-pathname-defaults* *beep-function* + *gc-notify-before* *gc-notify-after*)) -(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 - extensions::call-display-event-handler - hemlock-internals::current-window - hemlock-internals::device-exit - hemlock-internals::device-hunk-device - hemlock-internals::device-init disable-clx-event-handling - xlib::display-input-stream xlib:event-listen - flush-display-events - hemlock::ts-stream-p hemlock::ts-stream-wire - hemlock-internals::window-hunk)) +(declaim (ftype (function * *) + find-keyword keyword-test assert-error + assert-prompt check-type-error case-body-error)) + +#-clx +(declaim (ftype (function * *) + disable-clx-event-handling + extensions::call-display-event-handler + xlib::display-input-stream xlib:event-listen + flush-display-events)) + +#-hemlock +(declaim (ftype (function * *) + hemlock-internals::current-window + hemlock-internals::device-exit + hemlock-internals::device-hunk-device + hemlock-internals::device-init + hemlock::ts-stream-p hemlock::ts-stream-wire + hemlock-internals::window-hunk)) -- GitLab