io.streams/zeta/misc.lisp

   1 (in-package :io.zeta-streams)
   2
   3 (defun device-write-string (device string)
   4   (let ((octets (babel:string-to-octets string :encoding :utf-8)))
   5     (device-write device octets 0 (length octets))))
   6
   7 (defun device-terpri (device)
   8   (device-write device #.(coerce #(#xA) 'ub8-simple-vector) 0 1))
   9
  10 (defun device-write-line (device string)
  11   (device-write-string device string)
  12   (device-terpri device))
  13
  14 (defun device-read-char (device)
  15   (let ((vector (make-iobuf-data-vector 1)))
  16     (device-read device vector 0 1)
  17     (code-char (aref vector 0))))