anchor.diff:         (let ((reader nil))
   	 #'(lambda (object)
   	     (unless reader
  -	       (setq reader (reader-function (type-from-number type-number))))
  +	       (setq reader (reader-function type))) ;(type-from-number type-number))))
   	     (let ((gvalue (gvalue-new type-number)))
   	       (%object-get-property object pname gvalue)
   	       (unwind-protect
  
positive.code: 
  
  (register-derivable-type 'gobject "GObject" 'expand-gobject-type)
  
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.25 2004-12-28 20:29:05 espen Exp $
  
  (in-package "GLIB")
  
  