Add last-minute :element-type specification for trivial-sockets compa…

…tibility.
vibs29 · Jan 20, 2007 · bce22bc · bce22bc
1 parent 9045937
commit bce22bc
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/backend/cmucl.lisp b/backend/cmucl.lisp
@@ -83,10 +83,11 @@
                                            (host-to-hbo host)))))))
    (make-stream-server-socket server-sock :element-type element-type)))
 
-(defmethod socket-accept ((usocket stream-server-usocket))
+(defmethod socket-accept ((usocket stream-server-usocket) &key element-type)
   (let* ((sock (ext:accept-tcp-connection (socket usocket)))
          (stream (sys:make-fd-stream sock :input t :output t
-                                     :element-type (element-type usocket)
+                                     :element-type (or element-type
+                                                       (element-type usocket))
                                      :buffering :full)))
     (make-stream-socket :socket sock :stream stream)))