Merge pull request #51 from ober/fix-allegro-timeout

add allegro to list of implementations without timeout support on socket
fukamachi · Jun 8, 2018 · 5a61e07 · 5a61e07
2 parents 05ce8e6 + 7a5e43a
commit 5a61e07
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/backend/usocket.lisp b/src/backend/usocket.lisp
@@ -394,7 +394,7 @@
                           (usocket:socket-stream
                            (usocket:socket-connect (uri-host con-uri)
                                                    (uri-port con-uri)
-                                                   #-(or ecl clisp) :timeout #-(or ecl clisp) timeout
+                                                   #-(or ecl clisp allegro) :timeout #-(or ecl clisp allegro) timeout
                                                                     :element-type '(unsigned-byte 8))))
                         (scheme (uri-scheme uri)))
                    (declare (type string scheme))