[mcclim-cvs] CVS mcclim

[ahefner]

Update of /project/mcclim/cvsroot/mcclim
In directory cl-net:/tmp/cvs-serv32619

Modified Files:
	text-formatting.lisp 
Log Message:
Fix bug in stream-write-string on filling-streams which caused an error
if the END keyword is nil, observable when climacs attempts to print a
lisp arglist (strange this wasn't observed earlier, though).


--- /project/mcclim/cvsroot/mcclim/text-formatting.lisp	2008/05/15 16:07:59	1.10
+++ /project/mcclim/cvsroot/mcclim/text-formatting.lisp	2008/11/30 22:26:21	1.11
@@ -81,8 +81,8 @@
 	(call-next-method))))
 
 (defmethod stream-write-string :around ((stream filling-stream) string
-                                        &optional (start 0) (end (length string)))
-  (dotimes (i (- end start))
+                                        &optional (start 0) end)
+  (dotimes (i (- (or end (length string)) start))
     (stream-write-char stream (aref string (+ i start)))))
 
 ;;; All the monkey business with the lambda form has to do with capturing the