Skip to content
Snippets Groups Projects
Commit 8194ecc5 authored by dtc's avatar dtc
Browse files

Redefine the terminal speed from an (unsigned-byte 16) to an

(unsigned-byte 24), to support speeds of 115200+.
parent 6225b8be
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -466,7 +466,7 @@
; device-columns long. ; device-columns long.
;; ;;
;; This terminal's baud rate, or NIL for infinite. ;; 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. ;;;; Device screen hunks and window-group.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment