From 0a61c9d69af2bec909cf610b2d08e222f25c1238 Mon Sep 17 00:00:00 2001
From: "Pierre R. Mai" <pmai@pmsf.de>
Date: Mon, 9 Oct 2000 22:02:28 +0000
Subject: [PATCH] Removed superfluous check of the return value of
 ext:create-inet-listener.

---
 src/drivers/simple-cmu.cl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/drivers/simple-cmu.cl b/src/drivers/simple-cmu.cl
index c5d23d9..780abb1 100644
--- a/src/drivers/simple-cmu.cl
+++ b/src/drivers/simple-cmu.cl
@@ -87,7 +87,6 @@
 #+MP
 (defun http-listener (port server)
   (let ((fd (ext:create-inet-listener port)))
-    (unless fd (error "Cannot bind port ~D." port))
     (unwind-protect
 	 (progn
 	   (setf (process-name *current-process*)
@@ -128,3 +127,4 @@
 #+MP
 (defun initialize-clash (&optional (idle-process mp::*initial-process*))
   (setf mp::*idle-process* idle-process))
+