+(defvar gtk-library-path (pkg-variable "gtk+-2.0" "libdir"))
+(defvar cmucl-include-path "/usr/src/cmucl-2.4.20/src/lisp")
+
+
+;; A hack to get around a bug in gdk's init code
+(defvar argc (alien:make-alien c-call:int))
+(defvar progname (alien:make-alien c-call:char))
+(defvar argv0 (alien:make-alien (* c-call:char)))
+(defvar argv (alien:make-alien (* (* c-call:char))))
+(setf (alien:deref argc) 1)
+(setf (alien:deref progname) 0)
+(setf (alien:deref argv0) progname)
+(setf (alien:deref argv) argv0)
+
+(setq mk::*cmu-errors-to-file* nil)
+