[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv12868/Drei

Modified Files:
	input-editor.lisp 
Log Message:
Sometimes, the input-position may be larger than the size of the buffer.

Handle this without erroring.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/02 19:02:03	1.38
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/02/03 23:49:24	1.39
@@ -572,7 +572,9 @@
              ;; input-position, so the user will not be able to
              ;; delete arguments prompts or other things.
              (drei-core:with-narrowed-buffer (drei
-                                              (loop for index from (1- (input-position stream)) above 0
+                                              (loop for index from
+                                                    (1- (min (input-position stream)
+                                                             (size (buffer (View drei))))) above 0
                                                     when (typep (buffer-object (buffer (view drei)) index)
                                                                 'noise-string)
                                                     return (1+ index)