Commit 9b9149a6 authored by Dave Cooper's avatar Dave Cooper

added LW compatible empty do list

parent ebf06c68
......@@ -70,7 +70,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(net.aserve:shutdown)
(let ((wait-time 1))
(block :outer
(do () ()
(do () (nil)
(let ((port port))
(block :inner
(do ((port-free? (client-test port) (client-test port)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment