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

Modified Files: commands.lisp Log Message: Fix typo, with-bounding-rectangle -> with-bounding-rectangle*.

--- /project/mcclim/cvsroot/mcclim/commands.lisp 2008/02/01 20:28:46 1.76 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2008/02/02 00:10:18 1.77 @@ -1233,7 +1233,7 @@ *command-parser-table*)))) (if (encapsulating-stream-p stream) (let ((interactor (encapsulating-stream-stream stream))) - (with-bounding-rectangle (x1 y1 x2 y2) (input-editing-stream-output-record stream) + (with-bounding-rectangle* (x1 y1 x2 y2) (input-editing-stream-output-record stream) (declare (ignore y1 x2)) ;; Start the dialog below the editor area (letf (((stream-cursor-position interactor) (values x1 y2)))