fix: input timeout bugs — read-raw-byte, SS3, parse-csi-params all use sub-second timeouts now (get-internal-real-time replaces get-universal-time which truncated to integer seconds)

backend/simple.lisp

@@ -30,8 +30,8 @@
   (declare (ignore x y fg bg bold italic underline reverse dim blink))
   (backend-write b string))
 
-(defun %simple-border-char (edge-style pos)
-  "Return ASCII border character for EDGE-STYLE at POS.
+(defun %simple-border-char (pos)
+  "Return ASCII border character at POS.
 POS is :top-left, :top-right, :bottom-left, :bottom-right,
 :horizontal, or :vertical."
   (case pos
@@ -42,8 +42,8 @@ POS is :top-left, :top-right, :bottom-left, :bottom-right,
 (defmethod draw-border ((b simple-backend) x y width height
                         &key style fg bg title title-align)
   (declare (ignore style fg bg title-align))
-  (let ((h (%simple-border-char nil :horizontal))
-        (v (%simple-border-char nil :vertical)))
+  (let ((h (%simple-border-char :horizontal))
+        (v (%simple-border-char :vertical)))
     ;; Position cursor with newlines and spaces (no escape sequences)
     (dotimes (row y) (backend-write b (string #\Newline)))
     ;; Top edge with optional title