[cells-gtk-cvs] CVS root/cells-gtk/test-gtk

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk
In directory common-lisp:/tmp/cvs-serv10966/root/cells-gtk/test-gtk

Modified Files:
	test-textview.lisp 
Log Message:
trivial

--- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-textview.lisp	2005/03/06 17:02:44	1.3
+++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-textview.lisp	2006/02/16 18:21:18	1.4
@@ -42,7 +42,7 @@
                       (string-downcase (symbol-name (gensym)))
                       (string-downcase (subseq (string name) (1+ (position #\- (string name)))))
                       (string-downcase (subseq (string name) 0 (position #\- (string name))))
-                      c-null))))
+                      +c-null+))))
       (loop for name in '(:red-foreground :red-background :yellow-foreground :yellow-background)
          do (create-tag name)))
     ht))