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