blob: 4b47926662fab7fd0ff173335feec45eabba553a (
plain)
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
|
;;; ilisp site-lisp configuration (most of this was shamelessly yanked
;;; from the ilisp.emacs file distributed with ilisp)
(setq load-path (cons "@SITELISP@" load-path))
(setq load-path (cons "@SITELISP@/extra" load-path))
(autoload 'common-lisp "ilisp" "Inferior generic Common Lisp." t)
; (autoload 'allegro "ilisp" "Inferior Allegro Common Lisp." t)
; (autoload 'cormanlisp "ilisp" "Inferior Corman Common Lisp." t)
; (autoload 'lucid "ilisp" "Inferior Lucid Common Lisp." t)
; (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)
(autoload 'cmulisp "ilisp" "Inferior CMU Common Lisp." t)
(autoload 'clisp-hs "ilisp" "Inferior Haible/Stoll CLISP Common Lisp." t)
; (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)
; (autoload 'xlisp "ilisp" "Inferior XLisp." t)
; (autoload 'xlispstat "ilisp" "Inferior XLisp-Stat." t)
(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)
; (setq allegro-program "/usr/local/acl5/lisp")
; (setq lucid-program "/usr/misc/.lucid/bin/lisp")
(setq clisp-hs-program "/usr/bin/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 "/opt/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 "/usr/bin/guile")
(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)))))
|
GitWeb