From e0edd275e866597ef4fc81ac3fb890f8837dbf02 Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 5 Apr 2010 02:20:48 +0200 Subject: [PATCH] Remove old NOTINLINE declamations. --- src/streams/gray/io-helpers.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/streams/gray/io-helpers.lisp b/src/streams/gray/io-helpers.lisp index 7222b46..6433e5d 100644 --- a/src/streams/gray/io-helpers.lisp +++ b/src/streams/gray/io-helpers.lisp @@ -9,7 +9,7 @@ ;;; Input ;;;------------------------------------------------------------------------- -(declaim (notinline %read-once)) +(declaim (inline %read-once)) (defun %read-once (fd read-fn iobuf) (declare (type function read-fn) (type iobuf iobuf)) @@ -21,7 +21,7 @@ (isys:ewouldblock () (iomux:wait-until-fd-ready fd :input nil t))))) -(declaim (notinline %fill-ibuf)) +(declaim (inline %fill-ibuf)) (defun %fill-ibuf (iobuf fd read-fn) (declare (type iobuf iobuf)) (let ((nbytes (%read-once fd read-fn iobuf))) @@ -29,7 +29,7 @@ :eof (progn (incf (iobuf-end iobuf) nbytes) nbytes)))) -(declaim (notinline %read-once/no-hang)) +(declaim (inline %read-once/no-hang)) (defun %read-once/no-hang (fd read-fn iobuf) (declare (type function read-fn) (type iobuf iobuf)) @@ -38,7 +38,7 @@ (iobuf-end-space-length iobuf)) (isys:ewouldblock () nil))) -(declaim (notinline %fill-ibuf/no-hang)) +(declaim (inline %fill-ibuf/no-hang)) (defun %fill-ibuf/no-hang (iobuf fd read-fn) (declare (type iobuf iobuf)) (let ((nbytes (%read-once/no-hang fd read-fn iobuf))) -- 2.11.4.GIT