From ed0c7395c260df5744644e4b3fb3de079dde935f Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Tue, 30 Mar 2010 03:03:58 +0200 Subject: [PATCH] Call DEFAULT-{READ,WRITE}-FN through their function objects. --- src/streams/gray/classes.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/streams/gray/classes.lisp b/src/streams/gray/classes.lisp index deb1b9e..bfc2b1c 100644 --- a/src/streams/gray/classes.lisp +++ b/src/streams/gray/classes.lisp @@ -46,10 +46,10 @@ (defclass dual-channel-fd-mixin () ((input-fd :initform nil :initarg :input-fd :accessor input-fd-of :documentation "placeholder") - (read-fn :initform 'default-read-fn :initarg :read-fn :accessor read-fn-of) + (read-fn :initform #'default-read-fn :initarg :read-fn :accessor read-fn-of) (output-fd :initform nil :initarg :output-fd :accessor output-fd-of :documentation "placeholder") - (write-fn :initform 'default-write-fn :initarg :write-fn :accessor write-fn-of)) + (write-fn :initform #'default-write-fn :initarg :write-fn :accessor write-fn-of)) (:documentation "placeholder")) (defgeneric input-fd-non-blocking (socket) -- 2.11.4.GIT