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