1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
|
;;; -*- Mode: Emacs-Lisp -*-
;;; ilisp.emacs --
;;; This file shows examples of some of the things you might want to
;;; do to install or customize ILISP. You may not want to include all
;;; of them in your .emacs. For example, the default key binding
;;; prefix for ILISP is C-z and this file changes the default prefix
;;; to C-c. For more information on things that can be changed, see
;;; the file ilisp.el.
;;;
;;; This file is part of ILISP.
;;; Please refer to the file COPYING for copyrights and licensing
;;; information.
;;; Please refer to the file ACKNOWLEGDEMENTS for an (incomplete) list
;;; of present and past contributors.
;;;
;;; $Id: ilisp.emacs,v 1.4 2002-06-03 23:37:04 wbd Exp $
;;; If ilisp lives in some non-standard directory, you must tell
;;; Emacs where to get it. This may or may not be necessary.
(setq load-path (cons (expand-file-name "~jones/emacs/ilisp/")
load-path))
;;; If you always want partial minibuffer completion
(require 'completer)
;;; Uncomment the following lines if you want TMC completion (see
;;; completion.el among the Emacs ELisp sources).
; (load "completion")
; (initialize-completions)
;;; If you want to redefine typeout-window keys.
; (add-hook 'ilisp-load-hook
; '(lambda ()
; (define-key global-map "\C-c1" 'ilisp-bury-output)
; (define-key global-map "\C-cv" 'ilisp-scroll-output)
; (define-key global-map "\C-cg" 'ilisp-grow-output)))
;;; Autoload based on your Lisp. You only really need the one you
;;; use. If called with a prefix, you will be prompted for a
;;; buffer and program.
(autoload 'run-ilisp "ilisp" "Select a new inferior Lisp." t)
(autoload 'common-lisp "ilisp" "Inferior generic Common Lisp." t)
;; Franz
(autoload 'allegro "ilisp" "Inferior Allegro Common Lisp." t)
;; Corman
(autoload 'cormanlisp "ilisp" "Inferior Corman Common Lisp." t)
;; Lucid
; (autoload 'lucid "ilisp" "Inferior Lucid Common Lisp." t)
;; Harlequin
; (autoload lispworks "ilisp"
; "Inferior Harlequin Common Lisp (LispWorks)." t)
; (autoload harlequin "ilisp"
; "Inferior Harlequin Common Lisp (LispWorks)." t)
; (autoload pulcinella "ilisp"
; "Inferior Harlequin Common Lisp (LispWorks)." t)
;; Italian "Commedia dell'Arte" twist.
;; CMUCL
(autoload 'cmulisp "ilisp" "Inferior CMU Common Lisp." t)
;; CLISP (Bruno Haible and Michael Stoll)
(autoload 'clisp-hs "ilisp"
"Inferior Haible/Stoll CLISP Common Lisp." t)
;; KCL dialects
; (autoload 'kcl "ilisp"
; "Inferior Kyoto Common Lisp." t)
; (autoload 'akcl "ilisp"
; "Inferior Austin Kyoto Common Lisp." t)
; (autoload 'ibcl "ilisp"
; "Ibuki Common Lisp." t)
; (autoload 'gcl "ilisp"
; "Inferior GNU Common Lisp." t)
; (autoload 'ecl "ilisp"
; "Inferior EcoLisp." t)
;; XLisp
; (autoload 'xlisp "ilisp" "Inferior XLisp." t)
; (autoload 'xlispstat "ilisp" "Inferior XLisp-Stat." t)
;; Scheme
; (autoload 'scheme "ilisp" "Inferior generic Scheme." t)
; (autoload 'oaklisp "ilisp" "Inferior Oaklisp Scheme." t)
; (autoload 'scm "ilisp" "Inferior SCM Scheme." t)
; (autoload 'chez "ilisp" "Inferior Chez Scheme." t)
; (autoload 'stk "ilisp" "Inferior STk Scheme." t)
; (autoload 'snow "ilisp" "Inferior STk Scheme without Tk." t)
; (autoload 'guile "ilisp" "Inferior GUILE Scheme." t)
;;; Define where Lisp programs are found. (This may already have
;;; been done at your site).
(setq allegro-program "/usr/local/acl5/lisp")
; (setq lucid-program "/usr/misc/.lucid/bin/lisp")
(setq clisp-hs-program "clisp -I")
;(setq *cormanlisp-dir* "C:\\CORMAN~1\\CORMAN~1.5\\")
;(setq cormanlisp-program
; (concat *cormanlisp-dir* "clconsole.exe"
; " -image " *cormanlisp-dir* "CormanLisp.img"))
; (setq lispworks-program
; "/somewhere/in/the/directory/tree/lispworks")
(setq cmulisp-program
"/usr/local/lib/cmucl/bin/lisp")
;; If you are interested in maintaining CMUCL or compiling it
;; from source then set this to where the source files are.
; (setq cmulisp-local-source-directory
; "/usr/robotics/shared/cmu-cl/17e/")
; (setq akcl-program "kcl")
; (setq gcl-program "gcl")
; (setq ecl-program "ecl")
; (setq xlisp-program "xlisp")
; (setq xlispstat-program "xlispstat")
; (setq scm-program "scm -i")
; (setq chez-program "petite")
; (setq stk-program "stk -interactive")
; (setq snow-program "snow -interactive")
; (setq guile-program "guile")
;;; This makes reading a Lisp or Scheme file load in ILISP.
(set-default 'auto-mode-alist
(append '(("\\.lisp$" . lisp-mode)
("\\.lsp$" . lisp-mode)
("\\.cl$" . lisp-mode))
auto-mode-alist))
(add-hook 'lisp-mode-hook '(lambda () (require 'ilisp)))
(set-default 'auto-mode-alist
(append '(("\\.scm$" . scheme-mode)
("\\.ss$" . scheme-mode)
("\\.stk$" . scheme-mode)
("\\.stklos$" . scheme-mode))
auto-mode-alist))
(add-hook 'scheme-mode-hook '(lambda () (require 'ilisp)))
;;; Configuration of Erik Naggum's HyperSpec access package.
;; If you have a local copy of the HyperSpec, set its path here.
; (setq common-lisp-hyperspec-root
; "file:/home/joe/HyperSpec/")
; (setq common-lisp-hyperspec-symbol-table
; "/home/joe/HyperSpec/Data/Map_Sym.Txt")
;; Here's how to get the newest version of the CLHS:
;; <http://groups.google.com/groups?selm=sfwvgftux7g.fsf%40shell01.TheWorld.com>
;;; Configuration of Utz-Uwe Haus' CLtL2 access package.
;; If you have a local copy of CLtL2, set its path here.
; (setq cltl2-root-url
; "file:/home/joe/cltl2/")
;;; Sample load hook
(add-hook 'ilisp-load-hook
'(lambda ()
;; Change default key prefix to C-c
(setq ilisp-*prefix* "\C-c")
;; Set a keybinding for the COMMON-LISP-HYPERSPEC command
(defkey-ilisp "" 'common-lisp-hyperspec)
;; Make sure that you don't keep popping up the 'inferior
;; Lisp' buffer window when this is already visible in
;; another frame. Actually this variable has more impact
;; than that. Watch out.
; (setq pop-up-frames t)
(message "Running ilisp-load-hook")
;; Define LispMachine-like key bindings, too.
; (ilisp-lispm-bindings) Sample initialization hook.
;; Set the inferior Lisp directory to the directory of
;; the buffer that spawned it on the first prompt.
(add-hook 'ilisp-init-hook
'(lambda ()
(default-directory-lisp ilisp-last-buffer)))
))
;;; end of file -- ilisp.emacs --
|
