Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Regularize binding list names

rfe11065: Regularize binding list names to be more mnemonic

Change-Id: Ia9c374435b2c546dbae307efe950f41771416cce
  • Loading branch information...
commit d22b3dfcc823dde7fcff44a3e79535b78238b8ea 1 parent 3029548
Duane Rettig authored
Showing with 8 additions and 3 deletions.
  1. +8 −3 main.cl
View
11 main.cl
@@ -1223,8 +1223,11 @@ by keyword symbols and not by strings"
else "aserve")
(atomic-incf *thread-index*))
:initial-bindings
+ #+(version>= 9 0 :alpha 44)
+ `((*wserver* . ',*wserver*)
+ ,@excl:*required-top-level-bindings*)
+ #-(version>= 9 0 :alpha 44)
`((*wserver* . ',*wserver*)
- #+ignore (*debug-io* . ',(wserver-terminal-io *wserver*))
,@excl:*cl-default-special-bindings*))
#'http-accept-thread)))
@@ -1240,9 +1243,11 @@ by keyword symbols and not by strings"
else "aserve")))
(proc (mp:make-process :name name
:initial-bindings
+ #+(version>= 9 0 :alpha 44)
+ `((*wserver* . ',*wserver*)
+ ,@excl:*required-top-level-bindings*)
+ #-(version>= 9 0 :alpha 44)
`((*wserver* . ',*wserver*)
- #+ignore (*debug-io* . ',(wserver-terminal-io
- *wserver*))
,@excl:*cl-default-special-bindings*)
)))
(mp:process-preset proc #'http-worker-thread)
Please sign in to comment.
Something went wrong with that request. Please try again.