(ql-network:read-octets buffer connection)
(read-line &optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p)
(defun prompt-read (prompt) (format *query-io* "~a: " prompt) (force-output *query-io*) (read-line *query-io*))
read-time
(read-char &optional (stream *standard-input*) (eof-error-p t) eof-value recursive-p)
(defun continue-p () "Ask user if we should continue looking for solutions." (case (read-char) (#\; t) (#\. nil) (#\Newline (continue-p)) (otherwise (format t " Type ; to see more or . to stop") (continue-p))))
(read-byte stream &optional (eof-error-p t) eof-value)
(defun read-type-code (stream) (read-byte stream))
