anchor.diff:  ;; 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.24 2004-12-21 00:04:48 espen Exp $
  +;; $Id: gobject.lisp,v 1.25 2004-12-28 20:29:05 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code:        (let ((writer nil))
  	 #'(lambda (value object)
  	     (unless writer
  	       (setq writer (writer-function (type-from-number type-number))))
  	     (let ((gvalue (gvalue-new type-number)))
  	       (funcall writer value gvalue +gvalue-value-offset+)
  	       (%object-set-property object pname gvalue)
  
negative.code:        (let ((reader nil))
  	 #'(lambda (object)
  	     (unless reader
  	       (setq reader (reader-function type))) ;(type-from-number type-number))))
  	     (let ((gvalue (gvalue-new type-number)))
  	       (%object-get-property object pname gvalue)
  	       (unwind-protect
  