Added a method to ungetchar NIL.

Pascal J. Bourguignon [2012-02-16 08:06]
Added a method to ungetchar NIL.
Filename
common-lisp/cesarum/peek-stream.lisp
diff --git a/common-lisp/cesarum/peek-stream.lisp b/common-lisp/cesarum/peek-stream.lisp
index 334d2cf..169e128 100644
--- a/common-lisp/cesarum/peek-stream.lisp
+++ b/common-lisp/cesarum/peek-stream.lisp
@@ -141,6 +141,9 @@ RETURN:  The next character from SELF.
         (setf (next self) (head self)))))


+(defmethod ungetchar ((self peek-stream) (ch null))
+  ch)
+
 (defmethod ungetchar ((self peek-stream) (ch character))
   "
 DO:      Put the character CH in front of the input buffer.
ViewGit