Function Close-Server

Part of:

package trivial-sockets
( close-server < server > )