Permalink
Browse files

Regularize binding list names

rfe11065: Regularize binding list names to be more mnemonic

Change-Id: Ia9c374435b2c546dbae307efe950f41771416cce
  • Loading branch information...
1 parent 3029548 commit d22b3dfcc823dde7fcff44a3e79535b78238b8ea Duane Rettig committed Nov 1, 2011
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)

0 comments on commit d22b3df

Please sign in to comment.