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)