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