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

Contents of /src/code/globals.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.17 - (hide annotations)
Sun Jul 8 17:37:54 2001 UTC (12 years, 9 months ago) by pw
Branch: MAIN
Changes since 1.16: +3 -2 lines
From Paul Foley:

	Implements READ- and WRITE-SEQUENCE on Gray streams, via
	STREAM-READ-SEQUENCE and STREAM-WRITE-SEQUENCE, and provides a :class
	keyword to OPEN which lets it return Gray streams classes wrapped
	around lisp-streams.

	Load exports.lisp before compiling with this set of changes.
1 ram 1.1 ;;; -*- Package: Lisp; Log: code.log -*-
2     ;;;
3     ;;; **********************************************************************
4 ram 1.5 ;;; 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     ;;;
7     (ext:file-comment
8 pw 1.17 "$Header: /tiger/var/lib/cvsroots/cmucl/src/code/globals.lisp,v 1.17 2001/07/08 17:37:54 pw Exp $")
9 ram 1.5 ;;;
10 ram 1.1 ;;; **********************************************************************
11     ;;;
12     ;;; This file contains special proclamations for variables that are
13     ;;; referenced in the code sources before they are defined. There is also a
14     ;;; function proclamation to make some common functions be known, avoiding
15     ;;; large amounts of work in recording the calls that are done before the
16     ;;; definition.
17     ;;;
18     ;;; Written by Rob MacLachlan
19     ;;;
20 ram 1.7 (in-package "LISP")
21 ram 1.1
22 ram 1.9 (declaim (special *keyword-package* *lisp-package* *package* *query-io*
23     *terminal-io* *error-output* *trace-output* *debug-io*
24     *standard-input* *standard-output* *hemlock-version*
25     *evalhook* *applyhook* *command-line-switches*
26     *command-switch-demons* ext::temporary-foreign-files
27     *display-event-handlers* original-lisp-environment
28     *environment-list* *read-default-float-format*
29     *read-suppress* *readtable* *print-base* *print-radix*
30     *print-length* *print-level* *print-pretty* *print-escape*
31     *print-case* *print-circle* *print-gensym* *print-array*
32     defmacro-error-string defsetf-error-string
33     std-lisp-readtable hi::*in-the-editor*
34     debug::*in-the-debugger*
35     conditions::*handler-clusters*
36     conditions::*restart-clusters*
37     *gc-inhibit* *need-to-collect-garbage*
38     defmacro-error-string deftype-error-string
39     defsetf-error-string %sp-interrupts-inhibited
40     *software-interrupt-vector* *load-verbose*
41     *load-print-stuff* *in-compilation-unit*
42     *aborted-compilation-units* char-name-alist
43     *default-pathname-defaults* *beep-function*
44     *gc-notify-before* *gc-notify-after*))
45 ram 1.1
46    
47 ram 1.9 (declaim (ftype (function * *)
48     find-keyword keyword-test assert-error
49 ram 1.10 assert-prompt check-type-error case-body-error print-object
50 dtc 1.15 describe-object pcl::check-wrapper-validity))
51 ram 1.9
52     #-clx
53     (declaim (ftype (function * *)
54     disable-clx-event-handling
55     extensions::call-display-event-handler
56     xlib::display-input-stream xlib:event-listen
57     flush-display-events))
58    
59     #-hemlock
60     (declaim (ftype (function * *)
61     hemlock-internals::current-window
62     hemlock-internals::device-exit
63     hemlock-internals::device-hunk-device
64     hemlock-internals::device-init
65     hemlock::ts-stream-p hemlock::ts-stream-wire
66     hemlock-internals::window-hunk))
67 dtc 1.16
68     ;;; Gray streams functions not defined until after PCL is loaded.
69     (declaim (ftype (function * *)
70     stream-advance-to-column stream-clear-input
71     stream-clear-output stream-finish-output stream-force-output
72     stream-fresh-line stream-line-column stream-line-length
73     stream-listen stream-peek-char stream-read-byte
74     stream-read-char stream-read-char-no-hang stream-read-line
75     stream-start-line-p stream-terpri stream-unread-char
76 pw 1.17 stream-write-byte stream-write-char stream-write-string
77     stream-read-sequence stream-write-sequence))

  ViewVC Help
Powered by ViewVC 1.1.5