[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

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

Modified Files:
	input-editor.lisp 
Log Message:
Fixed clear bug in the Drei accept method for expressions.


--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/05/24 12:00:29	1.48
+++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp	2008/06/29 23:36:27	1.49
@@ -833,7 +833,8 @@
             ;; above us will not believe us when we tell them that the
             ;; input is empty
            (delete-buffer-range (buffer (view drei)) start-scan-pointer
-                                (stream-scan-pointer stream))
+                                (- (stream-scan-pointer stream)
+                                   start-scan-pointer))
            (setf (stream-scan-pointer stream) start-scan-pointer)
            (simple-parse-error "Empty input")
          ;; We only want to process the gesture if it is fresh, because