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

Merge pull request #198 from shakatoday/appending-newlines-for-logs

Browse source 
Appending newlines for some logging code
This commit is contained in:
David Botton 2022-08-01 00:31:21 -04:00 • committed by GitHub
commit bcb011c6fb
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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 (t
(unbind-event-script obj event) (unbind-event-script obj event)
(remhash hook cd))) (remhash hook cd)))
(format t "Attempt to set event on non-existant connection.")))) (format t "Attempt to set event on non-existant connection.~%"))))
;;;;;;;;;;;;;; ;;;;;;;;;;;;;;
;; property ;; ;; 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) (defun on-connect (connection-id)
(when clog-connection:*verbose-output* (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 ((body (make-clog-body connection-id)))
(let* ((path (if clog-connection::*long-poll-url* (let* ((path (if clog-connection::*long-poll-url*
clog-connection::*long-poll-url* clog-connection::*long-poll-url*