(when (eq 0 (getglobal '|_XCreateWindow|))
      (prinflush
       #+#:system:foreign-language "linking Xlib, "
       #-#:system:foreign-language "lien de Xlib, ")
      (unless (featurep 'callext)
	      (loadmodule "callext"))
      (cload "o/llx.o o/llxmenu.o -u _bidon -lXMenu -lX"))

(prinflush 
       #+#:system:foreign-language "loading x module... "
       #-#:system:foreign-language "chargement du module x... ")

(let ((#:system:path (cons (catenate #:system:virbitmap-directory "X10.4/")
			   #:system:path)))
  (ifn (featurep 'loader)
       (let ((#:system:obj-extension "neverfound"))
         (loadmodule "x"))
       (loadmodule "x")))

(print "ok.")