OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added ignore declarations to quiet the compiler. Added flushing of

Browse Source 
logfile so that the log on disk is always synced.
This commit is contained in:
Pierre R. Mai
2000-10-09 22:10:54 +00:00
parent ff709e014d
commit c883fcadf6
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/main/logging.cl
View File

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