Added stream-write-string which calls stream-write-sequence (see cl-b…

…abel#15)
darabi · Feb 24, 2014 · d4bd94d · d4bd94d
1 parent c4f251c
commit d4bd94d
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/streams.lisp b/src/streams.lisp
@@ -349,6 +349,10 @@ contains the octes that were actually output."
      (extend-vector-output-stream-buffer sequence stream :start start :end end)))
   sequence)
 
+(defmethod stream-write-string ((stream vector-output-stream)
+                                string &optional (start 0) (end (length string)))
+  (stream-write-sequence stream string start (or end (length string))))
+
 (defmethod stream-line-column ((stream vector-output-stream))
   "Dummy line-column method that always returns NIL. Needed for
 character output streams."