
;;				-[Mon Aug  7 13:28:12 1989 by layer]-
;; Sample .emacs file
;;
;; $Header: dot.emacs,v 1.2 89/08/07 16:45:39 layer Rel $


(defvar luca-lib "/home/luca/gnu-emacs/")

(setq auto-mode-alist (cons '("\\.cl$" . lisp-mode) auto-mode-alist))
(setq lisp-mode-hook '(lambda () (load "fi/site-init.el")))


(byte-recompile-directory luca-lib)

(load "/home/luca/gnu-emacs/def-luca")




(setq inferior-lisp-program "/usr/local/bin/CLX4.1")
(setq fi:common-lisp-image-name "/usr/local/bin/CLX4.1")

(defun lisp (arg)
  (setq inferior-lisp-program arg)
  (setq fi:common-lisp-image-name arg))
