[mcclim-cvs] CVS mcclim

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

Modified Files: presentation-defs.lisp Log Message: Fix from Mike Watters.

--- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2008/05/27 13:15:36 1.78 +++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2009/01/21 06:43:15 1.79 @@ -982,7 +982,7 @@ &allow-other-keys) (setf (stream-input-buffer stream) (replace (make-array (- end start) :fill-pointer (- end start)) - string :start1 start :end2 end))) + string :start2 start :end2 end)))

(defmethod stream-element-type ((stream string-input-editing-stream)) 'character)