Raymond Toy pushed to branch rtoy-unix-core at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/code/exports.lisp
    --- a/src/code/exports.lisp
    +++ b/src/code/exports.lisp
    @@ -350,6 +350,8 @@
     	   "USER-INFO-SHELL" "USER-INFO-UID" "VDSUSP" "VEOF" "VEOL" "VEOL2" "VERASE"
     	   "VINTR" "VKILL" "VMIN" "VQUIT" "VSTART" "VSTOP" "VSUSP" "VTIME"
     	   "WRITEOWN" "WS-COL" "WS-ROW" "WS-XPIXEL" "WS-YPIXEL" "W_OK" "X_OK"
    +	   "FIONREAD"
    +	   "TERMINAL-SPEEDS"
     	   )
       #-linux
       (:export "TCHARS"
    @@ -362,13 +364,13 @@
     
     	   ;; Other symbols from structures, etc.
     	   "DIRECT" "ELOCAL" "EPROCLIM" "EVICEERR" "EVICEOP" "EXECGRP" "EXECOTH"
    -	   "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL" "FIONREAD"
    +	   "EXECOWN" "F-DUPFD" "F-GETFD" "F-SETFD" "FCREAT" "FEXCL"
     	   "FTRUNC" "READGRP" "READOTH" "READOWN" "S-IEXEC" "S-IREAD" "S-ISGID"
     	   "S-ISUID" "S-ISVTX" "S-IWRITE" "SAVETEXT" "SETGIDEXEC" "SETUIDEXEC"
     	   "SG-ERASE" "SG-FLAGS" "SG-ISPEED" "SG-KILL" "SG-OSPEED" "SIGEMT" "SIGSYS"
     	   "T-BRKC" "T-DSUSPC" "T-EOFC" "T-FLUSHC" "T-INTRC" "T-LNEXTC" "T-QUITC"
     	   "T-RPRNTC" "T-STARTC" "T-STOPC" "T-SUSPC" "T-WERASC" "TCIFLUSH"
    -	   "TCIOFLUSH" "TCOFLUSH" "TERMINAL-SPEEDS" "TIOCFLUSH" "TIOCGETC"
    +	   "TCIOFLUSH" "TCOFLUSH" "TIOCFLUSH" "TIOCGETC"
     	   "TIOCGETP" "TIOCGLTC" "TIOCSETC" "TIOCSETP" "TIOCSLTC" "TTY-CBREAK"
     	   "TTY-CLOCAL" "TTY-CREAD" "TTY-CRMOD" "TTY-CS5" "TTY-CS6" "TTY-CS7"
     	   "TTY-CS8" "TTY-CSIZE" "TTY-CSTOPB" "TTY-HUPCL" "TTY-LCASE" "TTY-PARENB"
    

  • src/code/unix-glibc2.lisp
    --- 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)