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))