+(defvar *gtk-library-path* (pkg-variable "gtk+-2.0" "libdir"))
+(defvar *cmucl-include-path* (ext:unix-namestring "target:lisp"))
+
+;; 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)
+
+;; Without this, MAKE uses "CLG:glib;.err" as a namestring, which fails.
+;; TODO: Find and fix the bug, then remove this.
+(setq mk::*cmu-errors-to-file* nil)