From c883fcadf6e2d6d00289eab50dd33f9c6bd592e0 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Mon, 9 Oct 2000 22:10:54 +0000 Subject: [PATCH] Added ignore declarations to quiet the compiler. Added flushing of logfile so that the log on disk is always synced. --- src/main/logging.cl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/main/logging.cl b/src/main/logging.cl index f1816eb..b8a39a7 100644 --- a/src/main/logging.cl +++ b/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)))))