anchor.diff:  	   (symbol (string-downcase value))
   	   (number (format nil "~A" value)))
   	 values))
  -    (vector-push-extend nil keys)
  -    (vector-push-extend nil values)
  -    (%pixbuf-savev pixbuf filename type keys values)))
  +    (multiple-value-bind (ok-p gerror)
  +	(%pixbuf-savev pixbuf filename type keys values)
  +      (unless ok-p
  +	(signal-gerror gerror)))))
   
   (defbinding pixbuf-new-from-xpm-data () (referenced pixbuf)
     (data (vector string)))
  
positive.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: pixbuf.lisp,v 1.1 2004-12-28 20:26:01 espen Exp $
  
  
  (in-package "GDK")
  
negative.code: 
  (defbinding %pixbuf-new-from-file () (referenced pixbuf)
    (filename pathname)
    (nil gerror :out))
  
  (defbinding %pixbuf-new-from-file-at-size () (referenced pixbuf)
    (filename pathname)
    (width int)
    (height int)
    (nil gerror :out))
  
  #+gtk2.6
  (defbinding %pixbuf-new-from-file-at-scale () (referenced pixbuf)
  