* performance patch: declare buffer types in fd-stream internals for massive

  speed benefit. Over 3 times speedup on looped read-line.

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 1c96917..0ce1b1f 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -1013,6 +1013,7 @@
                            &aux (total-copied 0))
         (declare (type fd-stream stream))
         (declare (type index start requested total-copied))
+        (declare (type (simple-array character (#.+ansi-stream-in-buffer-length+)) buffer))
         (let ((unread (fd-stream-unread stream)))
           (when unread
             (setf (aref buffer start) unread)
@@ -1119,6 +1120,7 @@
                            &aux (total-copied 0))
         (declare (type fd-stream stream))
         (declare (type index start requested total-copied))
+        (declare (type (simple-array character (#.+ansi-stream-in-buffer-length+)) buffer))
         (let ((unread (fd-stream-unread stream)))
           (when unread
             (setf (aref buffer start) unread)