Commit 04cf33d2 authored by Dave Cooper's avatar Dave Cooper
Browse files

try again not to clobber *wserver* on restart after dumplisp!

parent 103f4ddf
Pipeline #7803 passed with stages
in 5 minutes and 31 seconds
......@@ -116,8 +116,8 @@
(when (and (find-package :zacl) (find-package :net.aserve))
(funcall (read-from-string "net.aserve:shutdown"))
#-allegro (makunbound (read-from-string "net.aserve:*wserver*"))
#-allegro (makunbound (read-from-string "excl:*initial-terminal-io*")))
(makunbound (read-from-string "net.aserve:*wserver*"))
(makunbound (read-from-string "excl:*initial-terminal-io*")))
;;
;; FLAG -- cffi prolly has one function to call to do all this & more.
;;
......
......@@ -268,12 +268,13 @@ other servers. Bailing.~&"))
anything-changed?))
(defun renew-wserver (&key (global-var-sym '*wserver*))
(when (find-package :zacl)(setq excl:*initial-terminal-io* *terminal-io*))
(let ((new-wserver (make-instance 'net.aserve:wserver)))
#+nil ;; FLAG try this later -- to retain publishings.
(setf (net.aserve:wserver-locators new-wserver)
(net.aserve:wserver-locators (symbol-value global-var-sym)))
(setf (symbol-value global-var-sym) new-wserver)))
(when (find-package :zacl)
(setq excl:*initial-terminal-io* *terminal-io*)
(let ((new-wserver (make-instance 'net.aserve:wserver)))
#+nil ;; FLAG try this later -- to retain publishings.
(setf (net.aserve:wserver-locators new-wserver)
(net.aserve:wserver-locators (symbol-value global-var-sym)))
(setf (symbol-value global-var-sym) new-wserver))))
;;
......
Supports Markdown
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