write-sequence on an unbuffered stream writes one element at a time. …

…Use sb-impl::output-raw-bytes for something approximating performance darcs-hash:20030322215610-2591e-a47489a8eb5304989a7fb1a6ac8f26034ae78796.gz
sharplispers · Mar 22, 2003 · b333045 · b333045
1 parent a81bb10
commit b333045
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dependent.lisp b/dependent.lisp
@@ -1629,7 +1629,7 @@
 	   (type display display)
 	   (type array-index start end))
   #.(declare-buffun)
-  (write-sequence vector (display-output-stream display) :start start :end end)
+  (sb-impl::output-raw-bytes (display-output-stream display) vector start end)
   nil)
 
 ;;; WARNING: