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

Modified Files: input-editor.lisp Log Message: Fixed WITH-INPUT-EDITOR-TYPEOUT for Drei.

--- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/30 21:21:43 1.28 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2008/01/30 21:30:02 1.29 @@ -760,9 +760,9 @@ (defmethod invoke-with-input-editor-typeout ((stream drei-input-editing-mixin) (continuation function) &key erase) (declare (ignore erase)) - (let ((drei (drei-instance stream))) - (when (minibuffer drei) - (funcall continuation (minibuffer drei))))) + (with-bound-drei-special-variables ((drei-instance stream)) + (with-minibuffer-stream (minibuffer) + (funcall continuation minibuffer))))

(defmacro with-input-editor-typeout ((&optional (stream t) &rest args &key erase)