From: espen <espen>
Date: Sun, 28 Jan 2001 14:11:20 +0000 (+0000)
Subject: Removed binding to private function g_type_create_instance
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/commitdiff_plain/da7fbbfdf2d30b28496ca2b4def6026f4aab964a

Removed binding to private function g_type_create_instance
---

diff --git a/glib/gtype.lisp b/glib/gtype.lisp
index 87cae25..ae55992 100644
--- a/glib/gtype.lisp
+++ b/glib/gtype.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
-;; $Id: gtype.lisp,v 1.6 2000-11-09 20:29:19 espen Exp $
+;; $Id: gtype.lisp,v 1.7 2001-01-28 14:11:20 espen Exp $
 
 (in-package "GLIB")
 
@@ -38,8 +38,8 @@ (define-foreign %type-from-name () type-number
 (define-foreign type-instance-size (type) int
   ((find-type-number type) type-number))
 
-(define-foreign type-create-instance (type) pointer
-  ((find-type-number type) type-number))
+; (define-foreign type-create-instance (type) pointer
+;   ((find-type-number type) type-number))
 
 (define-foreign type-free-instance () nil
   (instance pointer))
@@ -171,10 +171,10 @@ (defmethod (setf slot-value-using-class)
        object))
      ((or (functionp writer) (symbolp writer))
       (funcall writer value object)
-      object)
+      value)
      (t
       (funcall (fdefinition writer) value object)
-      object))))
+      value))))
 	
 
 (defmethod validate-superclass
@@ -623,8 +623,8 @@ (defmethod validate-superclass
   (subtypep (class-name super) 'ginstance))
 
 
-(defmethod allocate-alien-storage ((class ginstance-class))
-  (type-create-instance (find-type-number class)))
+; (defmethod allocate-alien-storage ((class ginstance-class))
+;   (type-create-instance (find-type-number class)))
 
 
 ;;;; Initializing type numbers