Commit 658ac8c9 authored by csr21's avatar csr21
Browse files

use write-sequence for buffer-write-default in sbcl

Since sbcl-0.9 or so, there has been a check to avoid the useless lseek() calls
on dual-channel streams (including socket streams), so write-sequence
should be fine for performance.

darcs-hash:20070807092756-30503-f0e1bdd3233320d1bf29923eb453bb7149ba723f.gz
parent e8db9fee
......@@ -1789,25 +1789,13 @@
(system:output-raw-bytes (display-output-stream display) vector start end)
nil)
#+sbcl
(defun buffer-write-default (vector display start end)
(declare (type buffer-bytes vector)
(type display display)
(type array-index start end))
#.(declare-buffun)
(sb-impl::output-raw-bytes (display-output-stream display) vector start end)
nil)
#+(or ecl clisp)
#+(or sbcl ecl clisp)
(defun buffer-write-default (vector display start end)
(declare (type buffer-bytes vector)
(type display display)
(type array-index start end))
#.(declare-buffun)
(write-sequence vector
(display-output-stream display)
:start start
:end end)
(write-sequence vector (display-output-stream display) :start start :end end)
nil)
;;; WARNING:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment