From 8194ecc5afdaabaef6319ecbbdffefa37ce75e62 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sun, 4 Oct 1998 08:27:32 +0000
Subject: [PATCH] Redefine the terminal speed from an (unsigned-byte 16) to an
 (unsigned-byte 24), to support speeds of 115200+.

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

diff --git a/hemlock/struct.lisp b/hemlock/struct.lisp
index a19b340e0..a1c62d45e 100644
--- a/hemlock/struct.lisp
+++ b/hemlock/struct.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/struct.lisp,v 1.6 1998/05/04 01:27:20 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/struct.lisp,v 1.7 1998/10/04 08:27:32 dtc Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -466,7 +466,7 @@
 			; device-columns long.
   ;;
   ;; This terminal's baud rate, or NIL for infinite.
-  (speed nil :type (or (unsigned-byte 16) null)))
+  (speed nil :type (or (unsigned-byte 24) null)))
 
 
 ;;;; Device screen hunks and window-group.
-- 
GitLab