From cc836df6fdeebe41fbfec7d3669bccf7999d5134 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 14 May 1990 14:59:19 +0000 Subject: [PATCH] .../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. --- clx/depdefs.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/clx/depdefs.lisp b/clx/depdefs.lisp index 1f86c22d6..3e85d08c5 100644 --- a/clx/depdefs.lisp +++ b/clx/depdefs.lisp @@ -1,4 +1,4 @@ -;;; -*- 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)) ) -- GitLab