(defvar *eli-directory*) (setq *eli-directory* (expand-file-name "/export/home/stud2/hofhausa/acl61/eli/")) (when (and (not (string-match "xemacs" emacs-version)) (= emacs-major-version 20) (<= emacs-minor-version 2)) (setq load-path (cons *eli-directory* load-path))) (load (format "%sfi-site-init" *eli-directory*)) (setq fi:common-lisp-image-name "/export/home/stud2/hofhausa/acl61/alisp") (setq fi:common-lisp-image-file "/usr/wiss/beetzm/LISP/IMAGES/tumbot.core") ;;(setq fi:common-lisp-host "ultra") ;; This function starts up lisp with your defaults. (defun run-common-lisp () (interactive) (fi:common-lisp fi:common-lisp-buffer-name fi:common-lisp-directory fi:common-lisp-image-name fi:common-lisp-image-arguments fi:common-lisp-host)) ;; Set up a keybinding for `run-common-lisp', two possible ways: ;(progn ; (setq ctlx-3-map (make-keymap)) ; (define-key ctl-x-map "3" ctlx-3-map) ; (define-key ctlx-3-map "l" 'run-common-lisp)) ;; or this: ;(define-key global-map "\C-xl" 'run-common-lisp) (define-key global-map "\M-l" 'fi:common-lisp) (define-key global-map "\M-f" 'fi:exit-lisp) (define-key global-map "\M-p" 'fi:pop-input) (define-key global-map "\M-n" 'fi:push-input)