gistfile1.el

(defun port-availablep (port)
  (condition-case nil
      (let ((p (make-network-process :name "port-checker" :buffer nil :host "localhost" :service port)))
        (delete-process p))
    (file-error t)))