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