;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;   Hooks for running Alleagro Common Lisp (acl) Emacs Interface

(defun acl ()
  (interactive)
  (setq load-path (cons "/usr/local/allegro4.2/lib/emacs/fi" load-path))
  (load "fi-site-init")

  ; It appears loading fi leaves emacs default directory hosed. Thus,
  ; let's set it back to the current directory ;;; Customize the common
  ; lisp invocation command for emacs.
  (setq default-directory (expand-file-name "."))
    
  ; The default buffer name is "*common-lisp*" but this can be changed
  (setq fi:common-lisp-buffer-name "*common-lisp*")
  
  ; The directory should be where emacs was started
  (setq fi:common-lisp-directory (expand-file-name "./"))

  ; The default buffer image name is "cl" but we use clim2xm
  (setq fi:common-lisp-image-name "clim2xm")
  
  ; The image arguments can be modified, new arguments can be added
  (setq fi:common-lisp-image-arguments nil)
  
  ; The host can also be specified
  ;(setq fi:common-lisp-host "beethoven")
    
  (defun acl ()
    "This function starts up Allegro Common Lisp with your defaults"
    (interactive)
    (fi:common-lisp fi:common-lisp-buffer-name
                    fi:common-lisp-directory
                    fi:common-lisp-image-name
                    fi:common-lisp-image-arguments))
  ; Go ahead and start up Allegro
  (acl)
  
  )