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