Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv25789/gtk-ffi

Modified Files: gtk-utilities.lisp Log Message: fix another non-printing character problem. Man, I get these things every time I cut and paste from email, and only cmucl gets stuck on them. Anyone know what's causing this? Date: Wed Feb 16 23:31:53 2005 Author: pdenno

Index: root/gtk-ffi/gtk-utilities.lisp diff -u root/gtk-ffi/gtk-utilities.lisp:1.11 root/gtk-ffi/gtk-utilities.lisp:1.12 --- root/gtk-ffi/gtk-utilities.lisp:1.11 Sun Feb 13 19:21:29 2005 +++ root/gtk-ffi/gtk-utilities.lisp Wed Feb 16 23:31:53 2005 @@ -189,7 +189,7 @@ column-no = num-columns. (See gtk-tree-store-set-kids)." (with-foreign-object (item :pointer-void) (gtk-tree-model-get model iter column-no item -1) -  #-(or lispworks cmu allegro) (cast item (as-gtk-type-name cell-type)) + #-(or lispworks cmu allegro) (cast item (as-gtk-type-name cell-type)) #+allegro (case cell-type (:string (uffi:convert-from-cstring (uffi:deref-pointer item :cstring)))