From 2fcb32f7c397e88260d15d5cf45f070702047b3a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 7 Mar 1992 08:44:30 +0000
Subject: [PATCH] Fixed GET-EDITOR-TTY-INPUT to read the data into an
 c-call:unsigned-char buffer instead of a c-call:char so that when we access
 the elements from it, we don't get negative numbers, which make code-char
 unhappy.

---
 hemlock/rompsite.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hemlock/rompsite.lisp b/hemlock/rompsite.lisp
index 827386e98..47dc4f214 100644
--- a/hemlock/rompsite.lisp
+++ b/hemlock/rompsite.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.23 1992/02/16 17:24:45 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rompsite.lisp,v 1.1.1.24 1992/03/07 08:44:30 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -890,7 +890,7 @@
 ;;; in the stream's queue.
 ;;;
 (defun get-editor-tty-input (fd)
-  (alien:with-alien ((buf (alien:array c-call:char 256)))
+  (alien:with-alien ((buf (alien:array c-call:unsigned-char 256)))
     (multiple-value-bind
 	(len errno)
 	(unix:unix-read fd (alien:alien-sap buf) 256)
-- 
GitLab