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