trace: print to *trace-output*

Fixes #236.
This commit is contained in:
Daniel Kochmański 2016-06-21 16:57:44 +02:00
parent f1857e0ed5
commit f54b0d9c78

View file

@ -181,7 +181,8 @@ all functions."
(format *trace-output*
"~0,4@T\\\\ ~{ ~S~}~%"
extras))
*trace-output*))))
*trace-output*)
*trace-output*)))
(defun trace-record (fname)
(declare (si::c-local))