|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp.emacs --
|
|
|
4
|
|
|
5 ;;; This file is part of ILISP.
|
|
|
6 ;;; Version: 5.7
|
|
|
7 ;;;
|
|
|
8 ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
|
|
|
9 ;;; 1993, 1994 Ivan Vasquez
|
|
|
10 ;;; 1994, 1995 Marco Antoniotti and Rick Busdiecker
|
|
|
11 ;;;
|
|
|
12 ;;; Send mail to 'ilisp-request@lehman.com' to be included in the
|
|
|
13 ;;; ILISP mailing list.
|
|
|
14
|
|
|
15 ;;; This file shows examples of some of the things you might want to
|
|
|
16 ;;; do to install or customize ILISP. You may not want to include all
|
|
|
17 ;;; of them in your .emacs. For example, the default key binding
|
|
|
18 ;;; prefix for ILISP is C-z and this file changes the default prefix to
|
|
|
19 ;;; C-c. For more information on things that can be changed, see the
|
|
|
20 ;;; file ilisp.el.
|
|
|
21
|
|
|
22
|
|
|
23 ;;; If ilisp lives in some non-standard directory, you must tell emacs
|
|
|
24 ;;; where to get it. This may or may not be necessary.
|
|
|
25
|
|
|
26 (setq load-path (cons (expand-file-name "~jones/emacs/ilisp/") load-path))
|
|
|
27
|
|
|
28
|
|
|
29 ;;; If you always want partial minibuffer completion
|
|
|
30
|
|
|
31 (require 'completer)
|
|
|
32
|
|
|
33 ;;; If want TMC completion then you will have to Ftp it yourself from think.com
|
|
|
34 ;;; It's become to flaky for me to deal with. -- Ivan
|
|
|
35 ;;;(load "completion")
|
|
|
36 ;;;(initialize-completions)
|
|
|
37
|
|
|
38 ;;; If you want to redefine typeout-window keys:
|
|
|
39 ;;;(add-hook 'ilisp-load-hook
|
|
|
40 ;;; '(lambda ()
|
|
|
41 ;;; (define-key global-map "\C-c1" 'ilisp-bury-output)
|
|
|
42 ;;; (define-key global-map "\C-cv" 'ilisp-scroll-output)
|
|
|
43 ;;; (define-key global-map "\C-cg" 'ilisp-grow-output)))
|
|
|
44
|
|
|
45
|
|
|
46 ;;; Autoload based on your LISP. You only really need the one you use.
|
|
|
47 ;;; If called with a prefix, you will be prompted for a buffer and
|
|
|
48 ;;; program.
|
|
|
49 ;;;
|
|
|
50 ;;; [Back to the old way now -- Ivan Mon Jun 28 23:30:51 1993]
|
|
|
51 ;;;
|
|
|
52
|
|
|
53 (autoload 'run-ilisp "ilisp" "Select a new inferior LISP." t)
|
|
|
54
|
|
|
55 (autoload 'clisp "ilisp" "Inferior generic Common LISP." t)
|
|
|
56
|
|
|
57 ;;; Franz
|
|
|
58 ;(autoload 'allegro "ilisp" "Inferior Allegro Common LISP." t)
|
|
|
59
|
|
|
60 ;;; Lucid
|
|
|
61 ;(autoload 'lucid "ilisp" "Inferior Lucid Common LISP." t)
|
|
|
62
|
|
|
63 ;;; Harlequin
|
|
|
64 ;(autoload lispworks "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
|
|
|
65 ;(autoload harlequin "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
|
|
|
66 ;(autoload pulcinella "ilisp" "Inferior Harlequin Common LISP (LispWorks)." t)
|
|
|
67 ;;; Italian "Commedia dell'Arte" twist.
|
|
|
68
|
|
|
69 ;;; CMULISP
|
|
|
70 (autoload 'cmulisp "ilisp" "Inferior CMU Common LISP." t)
|
|
|
71
|
|
|
72 ;;; CLISP (Bruno Haible and XX stoll)
|
|
|
73 ;(autoload 'clisp-hs "ilisp" "Inferior Haible/Stoll CLISP Common LISP." t)
|
|
|
74
|
|
|
75 ;;; KCL's
|
|
|
76 ;(autoload 'kcl "ilisp" "Inferior Kyoto Common LISP." t)
|
|
|
77 (autoload 'akcl "ilisp" "Inferior Austin Kyoto Common LISP." t)
|
|
|
78 ;(autoload 'ibcl "ilisp" "Ibuki Common LISP." t)
|
|
|
79 (autoload 'gcl "ilisp" "Inferior GNU Common LISP." t)
|
|
|
80 (autoload 'ecl "ilisp" "Inferior EcoLisp." t)
|
|
|
81
|
|
|
82 ;;; Scheme's
|
|
|
83 ;(autoload 'scheme "ilisp" "Inferior generic Scheme." t)
|
|
|
84 ;(autoload 'oaklisp "ilisp" "Inferior Oaklisp Scheme." t)
|
|
|
85
|
|
|
86
|
|
|
87 ;;; Define where LISP programs are found. (This may already be done
|
|
|
88 ;;; at your site.)
|
|
|
89 ;(setq allegro-program "/usr/misc/.allegro/bin/cl")
|
|
|
90 ;(setq lucid-program "/usr/misc/.lucid/bin/lisp")
|
|
|
91 ;(setq cmulisp-program "/usr/misc/.cmucl/bin/lisp")
|
|
|
92 ;(setq clisp-hs-program "clisp")
|
|
|
93 ;(setq lispworks-program "/somewhere/in/the/directory/tree/lispworks")
|
|
|
94 (setq cmulisp-program "/usr/robotics/shared/lang/cmu-cl/17e/bin/lisp")
|
|
|
95 (setq akcl-program "kcl")
|
|
|
96 ;(setq gcl-program "gcl")
|
|
|
97 ;(setq ecl-program "ecl")
|
|
|
98
|
|
|
99 ;;; If you run cmu-cl then set this to where your source files are.
|
|
|
100 (setq cmulisp-local-source-directory "/usr/robotics/shared/cmu-cl/17e/")
|
|
|
101
|
|
|
102
|
|
|
103 ;;; This makes reading a lisp file load in ilisp.
|
|
|
104 (set-default 'auto-mode-alist
|
|
|
105 (append '(("\\.lisp$" . lisp-mode)) auto-mode-alist))
|
|
|
106 (setq lisp-mode-hook '(lambda () (require 'ilisp)))
|
|
|
107
|
|
|
108 ;;; Sample load hook
|
|
|
109 (add-hook 'ilisp-load-hook
|
|
|
110 (function
|
|
|
111 (lambda ()
|
|
|
112 ;; Change default key prefix to C-c
|
|
|
113 (setq ilisp-prefix "\C-c")
|
|
|
114
|
|
|
115 ;; Make sure that you don't keep popping up the 'inferior
|
|
|
116 ;; lisp' buffer window when this is already visible in
|
|
|
117 ;; another frame. Actually this variable has more impact
|
|
|
118 ;; than that. Watch out.
|
|
|
119 ;(setq pop-up-frames t)
|
|
|
120
|
|
|
121 (message "Running ilisp-load-hook")
|
|
|
122 ;; Define LispMachine-like key bindings, too.
|
|
|
123 ;; (ilisp-lispm-bindings) Sample initialization hook.
|
|
|
124
|
|
|
125 ;; Set the inferior LISP directory to the directory of
|
|
|
126 ;; the buffer that spawned it on the first prompt.
|
|
|
127 (add-hook 'ilisp-init-hook
|
|
|
128 (function
|
|
|
129 (lambda ()
|
|
|
130 (default-directory-lisp ilisp-last-buffer))))
|
|
|
131 )))
|
|
|
132
|
|
|
133 (add-hook 'ilisp-site-hook
|
|
|
134 (function
|
|
|
135 (lambda ()
|
|
|
136 (setq ilisp-init-binary-extension "sparcf")
|
|
|
137 (setq ilisp-init-binary-command "(progn \"sparcf\")")
|
|
|
138 ;; (setq ilisp-binary-extension "sparcf")
|
|
|
139 )))
|
|
|
140
|
|
|
141
|
|
|
142 ;;; end of file -- ilisp.emacs --
|
