[armedbear-cvs] r12014 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Wed Jun 10 17:00:32 2009
New Revision: 12014

Log:
Implement sane defaults for STREAM-CLEAR-INPUT, STREAM-CLEAR-OUTPUT and STREAM-TERPRI.

Modified:
   trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/gray-streams.lisp	Wed Jun 10 17:00:32 2009
@@ -292,6 +292,10 @@
                 (return (values line nil))
                 (vector-push-extend character line)))))))
 
+(defmethod stream-clear-input (stream)
+  (declare (ignore stream))
+  nil)
+
 (defclass fundamental-character-output-stream
   (fundamental-output-stream fundamental-character-stream))
 
@@ -300,6 +304,9 @@
 (defgeneric stream-start-line-p (stream))
 (defgeneric stream-write-string (stream string &optional start end))
 (defgeneric stream-terpri (stream))
+(defmethod stream-terpri (stream)
+  (stream-write-char stream #\Newline))
+
 (defgeneric stream-fresh-line (stream))
 (defgeneric stream-finish-output (stream))
 (defgeneric stream-force-output (stream))
@@ -312,6 +319,10 @@
   (declare (ignore stream))
   nil)
 
+(defmethod stream-clear-output (stream)
+  (declare (ignore stream))
+  nil)
+
 (defmethod stream-start-line-p ((stream fundamental-character-output-stream))
   (equal (stream-line-column stream) 0))