From be68140db19ca1d9e2023d3e3e8eb18d4154950d Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Mon, 11 May 2015 19:34:06 -0700
Subject: [PATCH] Add terminal-speeds to unix-glibc2.lisp.

---
 src/code/unix-glibc2.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/code/unix-glibc2.lisp b/src/code/unix-glibc2.lisp
index 3170aaec2..c35ff936f 100644
--- a/src/code/unix-glibc2.lisp
+++ b/src/code/unix-glibc2.lisp
@@ -1811,6 +1811,10 @@
 
 ;;; termios.h
 
+(defconstant terminal-speeds
+  '#(0 50 75 110 134 150 200 300 600 1200 1800 2400
+     4800 9600 19200 38400 57600 115200 230400))
+
 (defun unix-cfgetospeed (termios)
   _N"Get terminal output speed."
   (multiple-value-bind (speed errno)
-- 
GitLab