(setq load-path (append (list (expand-file-name "./") )
			load-path))

(setq max-specpdl-size (* 10 max-specpdl-size)
      max-lisp-eval-depth (* 10 max-lisp-eval-depth))

(load "bytecomp" t t nil)
(setq byte-compile-warnings '(obsolete redefine callargs); free-vars unresolved
      byte-optimize t
      )

(require 'cl)