/[cmucl]/src/hemlock/struct-ed.lisp
ViewVC logotype

Contents of /src/hemlock/struct-ed.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Wed May 9 13:06:22 1990 UTC (23 years, 11 months ago) by ram
Branch: MAIN
Initial revision
1 ;;; -*- Log: hemlock.log; Package: Hemlock-*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the Spice Lisp project at
5 ;;; Carnegie-Mellon University, and has been placed in the public domain.
6 ;;; Spice Lisp is currently incomplete and under active development.
7 ;;; If you want to use this code or any part of Spice Lisp, please contact
8 ;;; Scott Fahlman (FAHLMAN@CMUC).
9 ;;; **********************************************************************
10 ;;;
11 ;;; Structures used by constucts in the HEMLOCK package.
12 ;;;
13
14 (in-package "HEMLOCK")
15
16 ;;; The server-info structure holds information about the connection to a
17 ;;; particular eval server. For now, we don't separate the background I/O and
18 ;;; random compiler output. The Notifications port and Terminal_IO will be the
19 ;;; same identical object. This separation in the interface may be just
20 ;;; gratuitous pseudo-generality, but it doesn't hurt.
21 ;;;
22 (defstruct (server-info
23 (:print-function
24 (lambda (s stream d)
25 (declare (ignore d))
26 (format stream "#<Server-Info for ~A>" (server-info-name s)))))
27 name ; String name of this server.
28 port ; Port we send requests to.
29 ; NullPort if no connection.
30 notifications ; List of notification objects for operations
31 ; which have not yet completed.
32 ts-info ; Ts-Info structure of typescript we use in
33 ; "background" buffer.
34 buffer ; Buffer "background" typescript is in.
35 slave-ts ; Ts-Info used in "Slave Lisp" buffer
36 ; (formerly the "Lisp Listener" buffer).
37 slave-buffer ; "Slave Lisp" buffer for slave's *terminal-io*.
38 errors ; List of structures describing reported errors.
39 error-mark) ; Pointer after last error edited.

  ViewVC Help
Powered by ViewVC 1.1.5