-;; A hack to get around a bug in gdk's init code
-(defvar argc (make-alien c-call:int))
-(defvar progname (make-alien c-call:char))
-(defvar argv0 (make-alien (* c-call:char)))
-(defvar argv (make-alien (* (* c-call:char))))
-(setf (deref argc) 1)
-(setf (deref progname) 0)
-(setf (deref argv0) progname)
-(setf (deref argv) argv0)
-