[cells-cvs] CVS update: cells/utils-kt/debug.lisp cells/utils-kt/utils-kt.lpr

[Kenny Tilton]

Update of /project/cells/cvsroot/cells/utils-kt
In directory common-lisp.net:/tmp/cvs-serv7918/utils-kt

Modified Files:
	debug.lisp utils-kt.lpr 
Log Message:
mere synchronization
Date: Mon Sep 26 17:05:43 2005
Author: ktilton

Index: cells/utils-kt/debug.lisp
diff -u cells/utils-kt/debug.lisp:1.3 cells/utils-kt/debug.lisp:1.4
--- cells/utils-kt/debug.lisp:1.3	Wed May 25 07:04:47 2005
+++ cells/utils-kt/debug.lisp	Mon Sep 26 17:05:43 2005
@@ -61,23 +61,24 @@
 
 (defun call-trc (stream s &rest os)
   (if #+cormanlisp nil #-cormanlisp (and (boundp '*trcdepth*)
-          *trcdepth*)
-        (format stream "~&~v,,,'.<~d~>> " (mod *trcdepth* 100) *trcdepth*)
-      (format stream "~&"))
-    
-    (format stream "~a" s)
-    (let (pkwp)
-      (dolist (o os)
-        (format stream (if pkwp " ~s" " | ~s") o)
-        (setf pkwp (keywordp o))))
-    (values))
-
+                                      *trcdepth*)
+    (format stream "~&~v,,,'.<~d~>> " (mod *trcdepth* 100) *trcdepth*)
+    (format stream "~&"))
+  
+  (format stream "~a" s)
+  (let (pkwp)
+    (dolist (o os)
+      (format stream (if pkwp " ~s" " | ~s") o)
+      (setf pkwp (keywordp o))))
+  (force-output stream)
+  (values))
+  
 (defun call-trc-to-string (fmt$ &rest fmt-args)
-  (let ((o$ (make-array '(0) :element-type 'base-char
-              :fill-pointer 0 :adjustable t)))
-    (with-output-to-string (os-stream o$)
-      (apply 'call-trc os-stream fmt$ fmt-args))
-    o$))
+    (let ((o$ (make-array '(0) :element-type 'base-char
+                :fill-pointer 0 :adjustable t)))
+      (with-output-to-string (os-stream o$)
+        (apply 'call-trc os-stream fmt$ fmt-args))
+      o$))
 
 #+findtrcevalnils
 (defmethod trcp :around (other)


Index: cells/utils-kt/utils-kt.lpr
diff -u cells/utils-kt/utils-kt.lpr:1.3 cells/utils-kt/utils-kt.lpr:1.4
--- cells/utils-kt/utils-kt.lpr:1.3	Fri Aug 26 16:28:02 2005
+++ cells/utils-kt/utils-kt.lpr	Mon Sep 26 17:05:43 2005
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "7.0 [Windows] (Aug 5, 2005 12:23)"; cg: "1.54.2.17"; -*-
+;; -*- lisp-version: "7.0 [Windows] (Sep 4, 2005 16:25)"; cg: "1.54.2.17"; -*-
 
 (in-package :cg-user)