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

Modified Files: recording.lisp Log Message: Patch from Nikodemus Siivola

--- /project/mcclim/cvsroot/mcclim/recording.lisp 2008/01/21 01:26:42 1.136 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2008/01/21 22:24:32 1.137 @@ -1730,7 +1730,7 @@ (:bottom (incf top (- point-y descent)) (incf bottom (- point-y descent))) (:center (incf top (+ point-y (ceiling (- ascent descent) 2))) - (incf bottom (+ point-xy (ceiling (- ascent descent) 2))))) + (incf bottom (+ point-y (ceiling (- ascent descent) 2))))) (values left top right bottom))))

(defmethod* (setf output-record-position) :around