OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed superfluous check of the return value of

Browse Source 
ext:create-inet-listener.
This commit is contained in:
Pierre R. Mai
2000-10-09 22:02:28 +00:00
parent e4c22e732c
commit 0a61c9d69a
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/drivers/simple-cmu.cl
View File

@ -87,7 +87,6 @@
#+MP #+MP
(defun http-listener (port server) (defun http-listener (port server)
(let ((fd (ext:create-inet-listener port))) (let ((fd (ext:create-inet-listener port)))
(unless fd (error "Cannot bind port ~D." port))
(unwind-protect (unwind-protect
(progn (progn
(setf (process-name *current-process*) (setf (process-name *current-process*)
@ -128,3 +127,4 @@
#+MP #+MP
(defun initialize-clash (&optional (idle-process mp::*initial-process*)) (defun initialize-clash (&optional (idle-process mp::*initial-process*))
(setf mp::*idle-process* idle-process)) (setf mp::*idle-process* idle-process))