Commit 012a7070 authored by Dave Cooper's avatar Dave Cooper

changed startup client-test to test listening instead of actual client test.

parent a1936282
"(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-(or allegro ccl) :acl-compat #+ccl zacl)"
"(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-(or allegro ccl) :acl-compat #+ccl :zacl)"
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:glisp :description
"The Gendl® Common Lisp Portability" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20161125" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-(or allegro ccl) :acl-compat #+ccl zacl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings )
#+asdf-unicode :defsystem-depends-on #+asdf-unicode ()
"The Gendl® Common Lisp Portability" :author b :license
"Genworks Proprietary" :serial t :version "20161127" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-(or allegro ccl) :acl-compat #+ccl :zacl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
((:file "source/presets") (:file "source/parameters")
......
......@@ -57,6 +57,17 @@
(defvar *aserve-listeners* 25)
(defvar *aserve-port* 9000)
(defun client-test (port)
(let ((result
(handler-case
(let ((sock (usocket:socket-listen "localhost" port)))
(usocket:socket-close sock))
(usocket:address-in-use-error (e) :in-use))))
(unless (eql result :in-use) port)))
#+nil
(defun client-test (port)
(multiple-value-bind (result error)
(ignore-errors
......@@ -75,7 +86,7 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(defun start-gwl (&key (port *aserve-port*) (listeners *aserve-listeners*)
(external-format :utf8-base))
(external-format #+allegro :utf8-base #+ccl :utf-8 #-(or allegro ccl) (error "find utf-8 external-format for ~a.~%" (lisp-implementation-version))))
(net.aserve:shutdown :server net.aserve:*wserver*)
(let ((wait-time 1))
(block :outer
......
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