[cells-cvs] CVS cells

[ktilton]

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))