Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
04cf33d2
Commit
04cf33d2
authored
Jan 13, 2023
by
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
Changes
2
Pipelines
4
Hide whitespace changes
Inline
Side-by-side
base/zzinit/source/initialize.lisp
View file @
04cf33d2
...
...
@@ -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.
;;
...
...
gwl/zzinit/source/initialize.lisp
View file @
04cf33d2
...
...
@@ -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
))))
;;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment