Commit dee1b2e2 authored by Dave Cooper's avatar Dave Cooper

added publish-uris, use :utf-8 as standard external-format

parent 886840c2
......@@ -101,8 +101,11 @@ Perhaps a zombie process is holding port ~a?~%" port port))
port)))
(defun start-gwl (&key (port *aserve-port*) (listeners *aserve-listeners*)
(external-format :utf8-base))
(defun start-gwl (&key (port *aserve-port*) (listeners *aserve-listeners*)
;;
;; FLAG -- figure out external-format for the other Lisps.
;;
(external-format :utf-8) aserve-start-args)
(net.aserve:shutdown)
(let ((wait-time 1))
(block :outer
......@@ -114,12 +117,16 @@ Perhaps a zombie process is holding port ~a?~%" port port))
(format t (if (> wait-time 1) "~&Retrying AllegroServe on ~a...~%"
"~&Trying to start AllegroServe on ~a...~%") port)
(if (ignore-errors
(net.aserve:start :port port :listeners listeners
#-mswindows :external-format #-mswindows external-format))
(apply #'net.aserve:start
:port port :listeners listeners
;;#-mswindows :external-format #-mswindows external-format ;; FLAG -- why no external-format for Windows?
:external-format external-format
aserve-start-args))
(return-from :outer port)
(progn (sleep (random wait-time)) (return-from :inner))))
(incf port))))
(incf wait-time 0.1)))))
(incf wait-time 0.1))))
(publish-uris))
#+nil
......
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