Skip to content
Snippets Groups Projects
Commit cc836df6 authored by ram's avatar ram
Browse files

.../systems-work/nnclx/depdefs.lisp, 12-May-90 14:27:05, Edit by Chiles.
  Added internal-buffer slots to buffer structure for use by
  READ-BUFFER-DEFAULT.

  Modified file options.
parent 339e75c3
No related branches found
No related tags found
No related merge requests found
;;; -*- Mode: LISP; Syntax: Common-lisp; Package: XLIB; Base: 10; Lowercase: Yes -*-
;;; -*- Mode: Lisp; Package: Xlib; Log: clx.log -*-
;; This file contains some of the system dependent code for CLX
......@@ -595,6 +595,15 @@
(input-wait-function 'buffer-input-wait-default)
;; Function to call to listen for input data
(listen-function 'buffer-listen-default)
;;
;; This is an alien array. We use it for, somewhat unnecessarily, to have
;; interior pointers into it when calling UNIX-READ.
#+:CMU
(internal-buffer nil)
;;
;; How much of the internal-buffer have we filled so far.
#+:CMU
(internal-buffer-length 0)
#+Genera (debug-io nil :type (or null stream))
)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment