[gtk-cffi-cvs] CVS gtk-cffi/g-object

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/g-object
In directory tiger.common-lisp.net:/tmp/cvs-serv2958/g-object

Modified Files:
	g-object.lisp 
Log Message:
Synced with cffi-objects


--- /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-object.lisp	2012/07/29 15:13:59	1.11
+++ /project/gtk-cffi/cvsroot/gtk-cffi/g-object/g-object.lisp	2012/07/29 16:11:54	1.12
@@ -42,14 +42,6 @@
 ;;   (object pobject) (name :string) (value pobject))
 
 
-(define-foreign-type cffi-keyword ()
-  ()
-  (:simple-parser cffi-keyword)
-  (:actual-type :string))
-
-(defmethod translate-to-foreign (value (type cffi-keyword))
-  (convert-to-foreign (string-downcase value) :string))
-
 (defmacro generate-property-accessors (name object set get type
                                        class find prop-slot)
   `(progn