From fa7d62304b117a33be70af7a27f97cc657d13d07 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 17 Feb 2005 13:40:35 +0000
Subject: [PATCH] User might not have provided the value of slot :TYPE

---
 contrib/sockets/sockets.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp
index e79cb7502..4d35958fa 100644
--- a/contrib/sockets/sockets.lisp
+++ b/contrib/sockets/sockets.lisp
@@ -293,8 +293,7 @@ directly instantiated."))
 			    proto-num))))
     (if (= fd -1) (socket-error "socket"))
     (setf (slot-value socket 'file-descriptor) fd
-	  (slot-value socket 'protocol) proto-num
-	  (slot-value socket 'type) type)
+	  (slot-value socket 'protocol) proto-num)
     #+ ignore
     (sb-ext:finalize socket (lambda () (sockint::close fd)))))