Terminal control/Positional read: Difference between revisions
Content added Content deleted
(→{{header|TXR}}: Add notes.) |
(→{{header|TXR}}: The BOOL enum doesn't work as a Lisp Boolean; we must compare to FALSE to detect falsehood.) |
||
| Line 227: | Line 227: | ||
(read-ok (ReadConsoleOutputCharacter console-handle chars |
(read-ok (ReadConsoleOutputCharacter console-handle chars |
||
1 coord nread))) |
1 coord nread))) |
||
( |
(when (eq getinfo-ok 'FALSE) |
||
(error "GetConsoleScreenBufferInfo failed")) |
(error "GetConsoleScreenBufferInfo failed")) |
||
(prinl cinfo) |
(prinl cinfo) |
||
( |
(when (eq read-ok 'FALSE) |
||
(error "ReadConsoleOutputCharacter failed")) |
(error "ReadConsoleOutputCharacter failed")) |
||
(unless (plusp [nread 0]) |
(unless (plusp [nread 0]) |
||