Update of /project/cello/cvsroot/cello In directory clnet:/tmp/cvs-serv21204

Modified Files: ix-paint.lisp Log Message: Minor change only. Code reformatted.

--- /project/cello/cvsroot/cello/ix-paint.lisp 2006/08/28 21:45:22 1.4 +++ /project/cello/cvsroot/cello/ix-paint.lisp 2006/10/01 20:46:51 1.5 @@ -5,7 +5,7 @@

This library is free software; you can redistribute it and/or modify it under the terms of the Lisp Lesser GNU Public License - (http://opensource.franz.com/preamble.html), known as the LLGPL. +(http://opensource.franz.com/preamble.html), known as the LLGPL.

This library is distributed WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. @@ -32,15 +32,16 @@ (ogl-raster-pos-get)) (assert (find k (kids self))() "kid ~a no longer amongst kids ~a" k (kids self)) (c-assert (px k) () "pX is null in ~a" k) - (c-assert (py k) () "pY is null in ~a" k) - + (c-assert (py k) () "pY is null in ~a" k)

(if (dsp-list k) (progn (count-it :call-list) (trc "ix-paint calling list" (dsp-list k)) - (gl-call-list (dsp-list k))) ; 06/0629 edit caret presences causes INVALID_OP on - ; first run only in a session; just continue from + (gl-call-list (dsp-list k))) ;; 06/06/29 edit caret presences + ;; causes INVALID_OP on + ;; first run only in a session; + ;; just continue from (ix-paint k)))))

(defun rpchk (id pfail psucc &optional self)