[cello-cvs] CVS cello

fgoenninger fgoenninger at common-lisp.net
Sun Oct 1 20:46:51 UTC 2006


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)




More information about the Cello-cvs mailing list