; apres avoir charge une session lelisp 'nu'
; (setq #:system:path (append (list "eurosept:lelisp:bounty:")
	                     #:system:path))

(setq #:system:path (append (list "/udd/chatelet/ing/bv/test/")
	                     #:system:path))

; donner une extension bidon pour empecher lelisp de trouver les
; modules objets
(setq #:system:obj-extension 'bidon)

; initialiser le bitmap pour la version 10.4 de X
(inibitmap '|X10.4|)


(bitprologue)
(de bitprologue () (print "bitprologue est appelee"))
(de bitepilogue () (print "bitepilogue est appelee"))