;; Sample .emacs file
;;
;; $Header: dot.emacs,v 1.2 89/08/07 16:45:39 layer Rel $


(setq auto-mode-alist (cons '("\\.cl$" . lisp-mode) auto-mode-alist))

(setq lisp-mode-hook '(lambda () (load "fi/site-init.el")))

(defun runtime ()
  (setq fi:common-lisp-image-arguments nil)
  (setq inferior-lisp-program "/tmp/clxr4.1")
  (setq fi:common-lisp-image-name "/tmp/clxr4.1"))

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

(upper-case)
  
(load "/usr/local/share/lib/gnumacs/lisp/pail-init")

(print "CIAO")