Permalink
Browse files

fixed logger could'nt bind proper *standard-output*.

  • Loading branch information...
1 parent 797860f commit 6c24fdaa89fc004dc0f2217137eb85c4b6c0814b @fukamachi committed Jun 11, 2011
Showing with 6 additions and 5 deletions.
  1. +6 −5 src/core/clack.lisp
View
@@ -43,11 +43,12 @@ Example:
@export
(defun clackup (app &key (server :hunchentoot) (port 5000) (debug t))
(prog1
- (let ((handler (find-handler server))
- (app (if debug
- (wrap (make-instance '<clack-middleware-logger>)
- app)
- app)))
+ (let* ((*standard-output* *standard-output*)
+ (handler (find-handler server))
+ (app (if debug
+ (wrap (make-instance '<clack-middleware-logger>)
+ app)
+ app)))
(funcall (intern "RUN" handler)
app
:port port

0 comments on commit 6c24fda

Please sign in to comment.