UNGETCHAR returns the character. So one can write (ungetchar ps (getchar ps)) to...
authorPascal J. Bourguignon <pjb@informatimago.com>
Thu, 16 Feb 2012 08:04:53 +0000 (09:04 +0100)
committerPascal J. Bourguignon <pjb@informatimago.com>
Thu, 16 Feb 2012 08:04:53 +0000 (09:04 +0100)
commitf6f06251a1f96f7fbd8114f65f208c5db673a8aa
tree7334da0ab1bce1503dfdd9f828b6b004977151e6
parentdd43920df020cbaffc84ea6eba04d35b373795bd
UNGETCHAR returns the character.  So one can write (ungetchar ps (getchar ps)) to peek idempotently.
common-lisp/cesarum/peek-stream.lisp