[Linedit-cvs] CVS update: src/smart-terminal.lisp src/utility-macros.lisp

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv25056

Modified Files:
	smart-terminal.lisp utility-macros.lisp 
Log Message:
More debugging output, partial fix to long line confusion.
Date: Thu Mar  4 09:37:55 2004
Author: nsiivola

Index: src/smart-terminal.lisp
diff -u src/smart-terminal.lisp:1.14 src/smart-terminal.lisp:1.15
--- src/smart-terminal.lisp:1.14	Thu Mar  4 08:52:53 2004
+++ src/smart-terminal.lisp	Thu Mar  4 09:37:55 2004
@@ -89,10 +89,11 @@
 	       (point* (+ point (length prompt)))
 	       (point-row (find-row point* columns))
 	       (point-col (find-col point* columns))
-	       (start (min* markup-start old-markup-start 
+	       (start (min* point* markup-start old-markup-start 
 			    (mismatch new old) end))
 	       (start-row (find-row start columns))
 	       (start-col (find-col start columns)))
+	  (dbg-values point-row point-col start-row start-col (point-row backend))
 	  (move-up-in-column
 	   :col start-col 
 	   :up (- (point-row backend) start-row)


Index: src/utility-macros.lisp
diff -u src/utility-macros.lisp:1.4 src/utility-macros.lisp:1.5
--- src/utility-macros.lisp:1.4	Sat Feb 28 06:32:05 2004
+++ src/utility-macros.lisp	Thu Mar  4 09:37:55 2004
@@ -65,3 +65,14 @@
 
 (defmacro ensure (symbol expr)
   `(or ,symbol (setf ,symbol ,expr)))
+
+(defmacro dbg-values (&rest places)
+  `(progn 
+     (format *debug* ,(apply #'concat (mapcar (lambda (x)
+						(format nil "~A = ~~A, " x))
+					      places))
+	     , at places)
+     (terpri *debug*)
+     (force-output *debug*)))
+
+