From b234e59fa57b9f6906da4780c4524781aa9b85aa Mon Sep 17 00:00:00 2001 From: Stelian Ionescu Date: Mon, 28 Jan 2008 12:16:27 +0100 Subject: [PATCH] Removed useless code in CREATE-SOCKET Signed-off-by: Stelian Ionescu --- net.sockets/make-socket.lisp | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/net.sockets/make-socket.lisp b/net.sockets/make-socket.lisp index 9d811a5..24a0347 100644 --- a/net.sockets/make-socket.lisp +++ b/net.sockets/make-socket.lisp @@ -24,15 +24,11 @@ (in-package :net.sockets) (defun create-socket (family type connect external-format &key fd ibs obs) - (if (or ibs obs) - (make-instance (select-socket-class family type connect :default) - :family family :file-descriptor fd - :external-format external-format - :input-buffer-size ibs - :output-buffer-size obs) - (make-instance (select-socket-class family type connect :default) - :family family :file-descriptor fd - :external-format external-format))) + (make-instance (select-socket-class family type connect :default) + :family family :file-descriptor fd + :external-format external-format + :input-buffer-size ibs + :output-buffer-size obs)) (defmacro with-close-on-error ((var value) &body body) "Bind VAR to VALUE, execute BODY as implicit PROGN and return VAR. -- 2.11.4.GIT