Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv7005
Modified Files: trc-eko.lisp Log Message:
--- /project/cells/cvsroot/cells/trc-eko.lisp 2006/09/03 13:41:09 1.2 +++ /project/cells/cvsroot/cells/trc-eko.lisp 2006/10/06 08:01:10 1.3 @@ -46,6 +46,17 @@ (count-it :trcfailed))) (count-it :tgtnileval)))))))
+(export! trcx) + +(defmacro trcx (tgt-form &rest os) + (if (eql tgt-form 'nil) + '(progn) + `(without-c-dependency + (call-trc t ,(format nil "TX> ~(~a~)" tgt-form) + ,@(loop for obj in os + nconcing (list (format nil "~a:" obj) obj)))))) + + (defparameter *last-trc* (get-internal-real-time))
(defun call-trc (stream s &rest os) @@ -58,7 +69,7 @@ (format stream "~a" s) (let (pkwp) (dolist (o os) - (format stream (if pkwp " ~(~s~)" " __ ~(~s~)") o) + (format stream (if pkwp " ~(~s~)" " ~(~s~)") o) ;; save, used to insert divider, trcx dont like (setf pkwp (keywordp o)))) (force-output stream) (values))