mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -08:00
Code Issues Projects Releases Wiki Activity

appending newlines for some logging code

Browse source
This commit is contained in:
Shaka Chen 2022-08-01 12:22:27 +08:00
parent 26dd159624
commit f161d193c1
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
source/clog-base.lisp
View file

@ -365,7 +365,7 @@ result or if time out DEFAULT-ANSWER. see JQUERY-QUERY (Internal)"))
(t
(unbind-event-script obj event)
(remhash hook cd)))
(format t "Attempt to set event on non-existant connection."))))
(format t "Attempt to set event on non-existant connection.~%"))))
;;;;;;;;;;;;;;
;; property ;;

2
source/clog-system.lisp
View file

@ -34,7 +34,7 @@ the same as the clog directy this overides the relative paths used in them.")
(defun on-connect (connection-id)
(when clog-connection:*verbose-output*
(format t "Start new window handler on connection-id - ~A" connection-id))
(format t "Start new window handler on connection-id - ~A~%" connection-id))
(let ((body (make-clog-body connection-id)))
(let* ((path (if clog-connection::*long-poll-url*
clog-connection::*long-poll-url*