[no subject]

[SJOBRG@MIT-AI]

        (defun tyitest nil
	       (print (tyipeek))
	       (print (read))
	       (tyi))

Now, (tyipeek) followed by the character sequence "777 " for example,
prints
	67
	777
	40
as it should.  Also, (tyipeek) followed by " 777 " prints
	40
	777
	40
as it should.  However, (tyipeek) followd by "7 " prints only
	40
and waits for more input.  If one types "7 " at this point, then
the remainder 
	7
	40
is printed.

Question:  Am I wrong in assuming that tyipeek does not gobble the
next character when reading?  Why doesn't it work with a single
character input?

What I want is to write a function which, after a prompt, waits either
for a space (to indicate use default), or an arbitrary fixnum followed
by a space (to use that fixnum).  Things work fine for all but single
digit fixnums, in which case I get the above problem.  It happens the
same in compiled and interpreted code.