anchor.diff:  
   (defmacro with-gvalue ((gvalue type &optional (value nil value-p)) &body body)
     `(let ((,gvalue ,(if value-p
  -		       `(gvalue-new ',type ,value)
  -		     `(gvalue-new ',type ,value))))
  +		       `(gvalue-new ,type ,value)
  +		     `(gvalue-new))))
       (unwind-protect
   	 (progn
   	   ,@body
  
positive.code:   (when value-p
      (funcall (writer-function type) value gvalue +gvalue-value-offset+)))
  
  (defun gvalue-new (type &optional (value nil value-p))
    (let ((gvalue (allocate-memory +gvalue-size+)))
      (if value-p
  	(gvalue-init gvalue type value)
        (gvalue-init gvalue type))
      gvalue))
  
  (defun gvalue-free (gvalue &optional (unset-p t))
  
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: gparam.lisp,v 1.12 2004-12-16 23:21:18 espen Exp $
  
  (in-package "GLIB")
  
  