(require 'cl)
+(defvar srcdir (or (getenv "srcdir") "."))
+
(push (or (getenv "lispdir")
"/usr/share/emacs/site-lisp")
load-path)
(require 'bytecomp)
-(defvar srcdir (or (getenv "srcdir") "."))
-
(push srcdir load-path)
;(push "/usr/share/emacs/site-lisp" load-path)
(load (expand-file-name "lpath.el" srcdir) nil t)