anchor.diff:    ((pname :reader slot-definition-pname :initarg :pname)
      (readable :reader slot-readable-p :initarg :readable)
      (writable :reader slot-writable-p :initarg :writable)
  -   (construct :initarg :construct)));)
  +   (construct :initarg :construct)))
  +
  +(defclass direct-user-data-slot-definition (direct-virtual-slot-definition)
  +  ())
  +
  +(defclass effective-user-data-slot-definition (effective-virtual-slot-definition)
  +  ())
  +
   
   (defbinding %object-ref () pointer
     (location pointer))
  
positive.code: 	       (gvalue-free gvalue t)
  	       value))))))
  
    (call-next-method))
  
  
  
negative.code: ;; 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: gobject.lisp,v 1.26 2004-12-29 21:07:46 espen Exp $
  
  (in-package "GLIB")
  
  