Removed superfluous check of the return value of

ext:create-inet-listener.
2000-10-09 22:02:28 +00:00
parent e4c22e732c
commit 0a61c9d69a
1 changed files with 1 additions and 1 deletions
--- 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))
+