prevented compile-file from printing to stdout if debugging isn't specified

changed more logging over to log4cl

lspx.lisp

@@ -85,7 +85,7 @@
     (log:debug "Using ~A for templates."
                (translate-logical-pathname "web:template;"))
 
-    (log:info "loading templates...")
+    (log:debug "loading templates...")
     (let ((*package* #.(find-package :lspx.user)))
       (uiop:collect-sub*directories
        "web:template;" (constantly t) (constantly t)
@@ -101,11 +101,10 @@
                          :port (getf opts :port 5000)))
 
     ;; ensure we print a "Server Started" message regardless of logging
-    (format t "LSPX server started at 127.0.0.1:~A using ~A backend~%"
-            (getf opts :port 5000)
-            #+woo :woo
-            #-woo :hunchentoot)
-    (force-output)
+    (log:info "LSPX server started at 127.0.0.1:~A using ~A backend"
+              (getf opts :port 5000)
+              #+woo :woo
+              #-woo :hunchentoot)
     
     ;; blocks until we C-c 
     (handle-user-abort

web.lisp

@@ -50,6 +50,9 @@ if it does, we compile it and load it before FUNCALL-ing the page's render funct
       
       (let* ((*package* #.(find-package :lspx.user))
              (*readtable* (copy-readtable nil))
+             (*standard-output* (make-broadcast-stream))
+             (*error-output* (if (log:debug) *error-output*
+                                 (make-broadcast-stream)))
              (*read-eval* t))
         (set-macro-character #\< #'read-html-tag)