Fix some Gray stream default methods

armedbear · Nov 20, 2023 · 1dc0c31 · 1dc0c31
1 parent 241eb9e
commit 1dc0c31
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/org/armedbear/lisp/gray-streams.lisp b/src/org/armedbear/lisp/gray-streams.lisp
@@ -268,6 +268,9 @@
 (defgeneric stream-read-line (stream))
 (defgeneric stream-clear-input (stream))
 
+(defmethod stream-read-char-no-hang ((stream fundamental-character-input-stream))
+  (stream-read-char stream))
+
 (defmethod stream-peek-char ((stream fundamental-character-input-stream))
   (let ((character (stream-read-char stream)))
     (unless (eq character :eof)
@@ -308,7 +311,8 @@
 (defgeneric stream-write-string (stream string &optional start end))
 (defgeneric stream-terpri (stream))
 (defmethod stream-terpri (stream)
-  (stream-write-char stream #\Newline))
+  (stream-write-char stream #\Newline)
+  nil)
 
 (defgeneric stream-fresh-line (stream))
 (defgeneric stream-finish-output (stream))