Permalink
Browse files

v1.2.71: Print "flush session #" information during debugging only.

Version bumped by layer.
  • Loading branch information...
1 parent 31827ba commit 8ac993cd6245a0b383fe21314a722fae3c564c9a Elliott Johnson committed with dklayer Feb 9, 2011
Showing with 2 additions and 2 deletions.
  1. +1 −1 main.cl
  2. +1 −1 webactions/websession.cl
View
@@ -38,7 +38,7 @@
#+ignore
(check-smp-consistency)
-(defparameter *aserve-version* '(1 2 70))
+(defparameter *aserve-version* '(1 2 71))
(eval-when (eval load)
(require :sock)
View
@@ -193,7 +193,7 @@
(sm-websessions sm))
(dolist (websession toreap)
- (format t " flush session ~s~%" (websession-key websession))
+ (debug-format :info " flush session ~s~%" (websession-key websession))
(force-output)
(remhash (websession-key websession) (sm-websessions sm)))))

0 comments on commit 8ac993c

Please sign in to comment.