[cl-plus-ssl-cvs] CVS update: trivial-gray-streams/mixin.lisp

[David Lichteblau]

Update of /project/cl-plus-ssl/cvsroot/trivial-gray-streams
In directory common-lisp.net:/tmp/cvs-serv14467

Modified Files:
	mixin.lisp 
Log Message:
stream-terpri wird wohl anderswo auch gebraucht

Date: Mon Dec  5 00:40:31 2005
Author: dlichteblau

Index: trivial-gray-streams/mixin.lisp
diff -u trivial-gray-streams/mixin.lisp:1.3 trivial-gray-streams/mixin.lisp:1.4
--- trivial-gray-streams/mixin.lisp:1.3	Fri Nov 25 23:40:12 2005
+++ trivial-gray-streams/mixin.lisp	Mon Dec  5 00:40:31 2005
@@ -11,6 +11,11 @@
     ((stream trivial-gray-stream-mixin) seq &optional start end)
   (stream-write-sequence stream seq (or start 0) (or end (length seq))))
 
+;; Implementations should provide this default method, I believe, but
+;; at least sbcl and allegro don't.
+(defmethod stream-terpri ((stream trivial-gray-stream-mixin))
+  (write-char #\newline stream))
+
 #+allegro
 (progn
   (defmethod excl:stream-read-sequence
@@ -34,7 +39,6 @@
   (defmethod stream:stream-read-sequence
       ((s trivial-gray-stream-mixin) seq start end)
     (stream-read-sequence s seq start end))
-
   (defmethod stream:stream-write-sequence
       ((s trivial-gray-stream-mixin) seq start end)
     (stream-write-sequence s seq start end)))
@@ -44,7 +48,6 @@
   (defmethod ccl:stream-read-vector
       ((s trivial-gray-stream-mixin) seq start end)
     (stream-read-sequence s seq start end))
-
   (defmethod ccl:stream-write-vector
       ((s trivial-gray-stream-mixin) seq start end)
     (stream-write-sequence s seq start end)))
@@ -89,7 +92,4 @@
     (stream-write-sequence s seq (or start 0) (or end (length seq))))
   ;; SBCL extension:
   (defmethod sb-gray:stream-line-length ((stream trivial-gray-stream-mixin))
-    80)
-  ;; SBCL should provide this default method, but doesn't?
-  (defmethod stream-terpri ((stream trivial-gray-stream-mixin))
-    (write-char #\newline stream)))
+    80))