Tests stop at peek-char.2

[Affonso-Gui]

Common Lisp description:

peek-char &optional peek-type input-stream eof-error-p eof-value recursive-p => char

In eus we do not have peek-type, making the first argument be input-stream.
If input-stream is nil *standard-input* is used, if it is t *terminal-io* is used. https://github.com/euslisp/EusLisp/blob/master/lisp/c/lispio.c#L64-L65

Therefore,

(deftest peek-char.2
  (with-input-from-string
   (*standard-input* "   ab")
   (values
    (peek-char)
    (read-char)
    (peek-char t)
    (read-char)
    (peek-char t)
    (read-char)))
  #\Space #\Space #\a #\a #\b #\b)

Stops at (peek-char t), waiting for terminal input.
Pressing enter makes the tests continue.

[ericlesaquiles]

I have corrected that behavior on the PR. As of now, peek-type is ignored. As of now as well, or so it seems to me, those whitespace-related features are best dealt with in the C code. Adding that option in a sensible manner then (not the way I have done here) could create incompatibility with existing code, so I'm not sure whether I should do it..