Added ignore declarations to quiet the compiler. Added flushing of

logfile so that the log on disk is always synced.

src/main/logging.cl

@@ -77,11 +77,13 @@
 
 (defmethod (setf server-logging-mixin-pathname) :before
     (new (instance server-logging-mixin))
+  (declare (ignore new))
   (when (slot-boundp instance 'stream)
     (close (server-logging-mixin-stream instance))))
 
 (defmethod (setf server-logging-mixin-pathname) :after
     (new (instance server-logging-mixin))
+  (declare (ignore new))
   (setf (server-logging-mixin-stream instance)
 	(open (server-logging-mixin-pathname instance)
 	      :direction :output
@@ -106,4 +108,5 @@
 		(let ((entity (http-message-entity response)))
 		  (if entity
 		      (or (entity-content-length entity) 0)
-		      0)))))))
+		      0)))
+	(force-output stream)))))