(when (eq 0 (getglobal '|_XCreateWindow|))
      (print
       #+#:system:foreign-language "linking X11lib, "
       #-#:system:foreign-language "Lien de X11lib, ")
      (unless (featurep 'callext)
	      (loadmodule "callext"))
      (cload "o/x11.o -u _bidon -lX11"))

(prinflush "Le-Lisp " (version)
           #+#:system:foreign-language " X11 Virtual Bitmap: "
           #-#:system:foreign-language " Fene^trage Virtuel X11: ")

(prinflush
 #+#:system:foreign-language "loading x11 module, "
 #-#:system:foreign-language "chargement du module x11, ")

(let ((#:system:path (cons (catenate #:system:virbitmap-directory "X11/")
			   #:system:path)))
  (if (featurep 'loader)
      (loadmodule "x11")
    (prinflush 
     #+#:system:foreign-language "interpreted, "
     #-#:system:foreign-language "interprete', ")
    (loadmodule "x11" () t)))

;  Positionne la liste des evenements de la session graphique Le-Lisp 
(setq #:display:x11:events-list
      (list 'down-event 'up-event 'ascii-event 'drag-event
	    'enterwindow-event 'leavewindow-event))

;  Positionne l'indicateur qui determine l'etat de Le-Lisp par rapport au 
;  Window Manager, pour les manipulation de fenetres.
;  --> t  : Le-Lisp ne tient pas compte du Window Manager
;  --> () : Le-Lisp tient compte du Window Manager
(setq #:display:x11:override-redirect t)

(print 
     #+#:system:foreign-language "done."
     #-#:system:foreign-language "ok.")