Commit af75372d authored by Dave Cooper's avatar Dave Cooper

initialize aserve streams for zacl-powered aserve.

parent 4edb02b9
(:cl-lite :gwl-graphics :tasty :robot :yadd)
......@@ -5,7 +5,7 @@
"Genworks International" :license
"Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
:version "20170524" :depends-on
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel :zacl)
(:base :uiop :cl-typesetting :cl-ppcre :cl-who #-allegro :cl-base64 #-allegro :babel #-allegro :zacl)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings #-(or allegro ccl sbcl) :acl-compat
#+(or ccl sbcl) :zacl)
#+asdf-unicode :defsystem-depends-on #+asdf-unicode (#-(or allegro ccl sbcl) :acl-compat
......
......@@ -193,6 +193,11 @@ Perhaps a zombie process is holding port ~a?~%" port port))
;; is still needed, currently LW-only.
;;
(glisp:initialize-multiprocessing)
(when (find-package :zacl)
(setq excl:*initial-terminal-io* *terminal-io*)
(setf (slot-value net.aserve:*wserver* 'net.aserve::log-stream) excl:*initial-terminal-io*
(slot-value (slot-value net.aserve:*wserver* 'net.aserve::default-vhost) 'net.aserve::log-stream) excl:*initial-terminal-io*))
(setq *iid-random-state* (make-random-state t))
......
(".git" "apps" "base" "cl-lite" "demos" "documentation" "emacs" "geom-base" "glisp" "gwl"
"gwl-graphics" "licenses" "patches" "program" "regression" "release-notes" "surf")
\ No newline at end of file
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