(require 'cl)
-(push "/usr/share/emacs/site-lisp" load-path)
+(push (or (getenv "lispdir")
+ "/usr/share/emacs/site-lisp")
+ load-path)
+(push (or (getenv "W3DIR") (expand-file-name "../../w3/lisp/" srcdir))
+ load-path)
(unless (featurep 'xemacs)
(define-compiler-macro last (&whole form x &optional n)