zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

twiddle listener debug format

Browse source 
Ignore-this: 5175799645ca7ee38cd96445de532e2c

darcs-hash:20101206223058-16a00-df77e33c92f4343b147536ed8729209fa47844cb
This commit is contained in:
j.forth 2010-12-06 22:30:58 +00:00 committed by Jamie Forth
parent 05d6d6a27b
commit 73b2376168
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
devices/listening-device.lisp
View file

@ -21,6 +21,7 @@
(defun print-osc-debug-msg (receiver message length address port
timetag)
(format t "~%~A~%received:~A~A ~A bytes from ~A ~A ~%timetag:~A~A~%unix-time:~A~F~%"
(name receiver) #\Tab message length address port #\Tab
timetag #\Tab (when timetag (timetag->unix-time timetag))))
(format t "~%~A~%received:~A~A~%bytes:~A~A~A~%from:~A~A~A ~A ~%timetag:~A~A~%unix-time:~A~F~%"
(name receiver) #\Tab message #\Tab #\Tab length #\Tab #\Tab
address port #\Tab timetag #\Tab
(when timetag (timetag->unix-time timetag))))