Function Close-Active-Socket

Part of:

package kmrcl
( close-active-socket < socket > )