[cells-cvs] CVS Celtk

[fgoenninger]

Update of /project/cells/cvsroot/Celtk
In directory clnet:/tmp/cvs-serv27202

Modified Files:
	Celtk.lisp 
Log Message:
Changed: function tk-format-now: let -> let* in
order to get *print-circle* to be set to nil for
the formatting of the string to be passed to tk-eval-ex.

--- /project/cells/cvsroot/Celtk/Celtk.lisp	2006/05/25 07:12:59	1.24
+++ /project/cells/cvsroot/Celtk/Celtk.lisp	2006/05/25 15:41:32	1.25
@@ -126,8 +126,8 @@
 
 (defun tk-format-now (fmt$ &rest fmt-args)
   (unless (find *tkw* *windows-destroyed*)
-    (let ((*print-circle* nil)
-          (tk$ (apply 'format nil fmt$ fmt-args)))
+    (let* ((*print-circle* nil)
+           (tk$ (apply 'format nil fmt$ fmt-args)))
       ;
       ; --- debug stuff ---------------------------------
       ;