|
0
|
1 ;;; -*- Mode: Emacs-Lisp -*-
|
|
|
2
|
|
|
3 ;;; ilisp-cl.el --
|
|
|
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 ;;;
|
|
|
13 ;;; Other authors' names for which this Copyright notice also holds
|
|
|
14 ;;; may appear later in this file.
|
|
|
15 ;;;
|
|
4
|
16 ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
|
|
|
17 ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
|
|
0
|
18 ;;; mailing list were bugs and improvements are discussed.
|
|
|
19 ;;;
|
|
|
20 ;;; ILISP is freely redistributable under the terms found in the file
|
|
|
21 ;;; COPYING.
|
|
|
22
|
|
|
23
|
|
|
24 ;;;
|
|
|
25 ;;; ILISP Common Lisp dialect definition
|
|
|
26 ;;;
|
|
|
27
|
|
|
28
|
|
|
29 ;;;%%Common LISP
|
|
|
30
|
|
|
31 (defvar ilisp-cl-ilisp-package-file "ilisp-pkg.lisp")
|
|
|
32
|
|
4
|
33 (defvar ilisp-clisp-init-file "cl-ilisp.lisp")
|
|
0
|
34
|
|
|
35 (defdialect clisp "Common LISP"
|
|
|
36 ilisp
|
|
|
37 (setq ilisp-load-or-send-command
|
|
|
38 "(or (and (load \"%s\" :if-does-not-exist nil) t)
|
|
|
39 (and (load \"%s\" :if-does-not-exist nil) t))")
|
|
|
40
|
|
|
41 ;; The following line is an incredible kludge to bypass the behavior
|
|
|
42 ;; of ilisp-load-init and to stick the package file in front of
|
|
|
43 ;; everything.
|
|
|
44 ;; Check what ilisp-load-init does to understand why I am forced to
|
|
|
45 ;; do this.
|
|
|
46 ;; Marco Antoniotti 11/22/94
|
|
|
47 (ilisp-load-init 'ilisp-package-kludge ilisp-cl-ilisp-package-file)
|
|
|
48
|
|
|
49 (ilisp-load-init 'clisp ilisp-clisp-init-file)
|
|
|
50 (setq ilisp-package-regexp
|
|
|
51 "^[ \t]*(in-package[ \t\n]*"
|
|
|
52
|
|
|
53 ilisp-package-command
|
|
|
54 "(let ((*package* *package*)) %s (package-name *package*))"
|
|
|
55
|
|
|
56 ilisp-package-name-command
|
|
|
57 "(package-name *package*)"
|
|
|
58
|
|
|
59 ilisp-in-package-command
|
|
|
60 "(in-package \"%s\")"
|
|
|
61
|
|
|
62 ilisp-last-command
|
|
|
63 "*"
|
|
|
64
|
|
|
65 ilisp-save-command
|
|
|
66 "(progn (ILISP:ilisp-save) %s\n)"
|
|
|
67
|
|
|
68 ilisp-restore-command
|
|
|
69 "(ILISP:ilisp-restore)"
|
|
|
70
|
|
|
71 ilisp-block-command
|
|
|
72 "(progn %s\n)"
|
|
|
73
|
|
|
74 ilisp-eval-command
|
|
|
75 "(ILISP:ilisp-eval \"%s\" \"%s\" \"%s\")"
|
|
|
76
|
|
|
77 ilisp-defvar-regexp
|
|
|
78 "(defvar[ \t\n]")
|
|
|
79
|
|
|
80 (setq ilisp-defvar-command
|
|
|
81 "(ILISP:ilisp-eval \"(let ((form '%s)) (progn (makunbound (second form)) (eval form)))\" \"%s\" \"%s\")")
|
|
|
82
|
|
|
83 (setq ilisp-compile-command
|
|
|
84 "(ILISP:ilisp-compile \"%s\" \"%s\" \"%s\")"
|
|
|
85
|
|
|
86 ilisp-describe-command
|
|
|
87 "(ILISP:ilisp-describe \"%s\" \"%s\")"
|
|
|
88
|
|
|
89 ilisp-inspect-command
|
|
|
90 "(ILISP:ilisp-inspect \"%s\" \"%s\")"
|
|
|
91
|
|
|
92 ilisp-arglist-command
|
|
|
93 "(ILISP:ilisp-arglist \"%s\" \"%s\")")
|
|
|
94
|
|
|
95 (setq ilisp-documentation-types
|
|
|
96 '(("function") ("variable")
|
|
|
97 ("structure") ("type")
|
|
|
98 ("setf") ("class")
|
|
|
99 ("(qualifiers* (class ...))")))
|
|
|
100
|
|
|
101 (setq ilisp-documentation-command
|
|
|
102 "(ILISP:ilisp-documentation \"%s\" \"%s\" \"%s\")")
|
|
|
103
|
|
|
104 (setq ilisp-macroexpand-1-command
|
|
|
105 "(ILISP:ilisp-macroexpand-1 \"%s\" \"%s\")")
|
|
|
106
|
|
|
107 (setq ilisp-macroexpand-command
|
|
|
108 "(ILISP:ilisp-macroexpand \"%s\" \"%s\")")
|
|
|
109
|
|
|
110 (setq ilisp-complete-command
|
|
|
111 "(ILISP:ilisp-matching-symbols \"%s\" \"%s\" %s %s %s)")
|
|
|
112
|
|
|
113 (setq ilisp-locator 'lisp-locate-clisp)
|
|
|
114
|
|
|
115 (setq ilisp-source-types
|
|
|
116 '(("function") ("macro") ("variable")
|
|
|
117 ("structure") ("type")
|
|
|
118 ("setf") ("class")
|
|
|
119 ("(qualifiers* (class ...))")))
|
|
|
120
|
|
|
121 (setq ilisp-callers-command
|
|
|
122 "(ILISP:ilisp-callers \"%s\" \"%s\")"
|
|
|
123
|
|
|
124 ilisp-trace-command
|
|
|
125 "(ILISP:ilisp-trace \"%s\" \"%s\" \"%s\")"
|
|
|
126
|
|
|
127 ilisp-untrace-command
|
|
|
128 "(ILISP:ilisp-untrace \"%s\" \"%s\")")
|
|
|
129
|
|
|
130 (setq ilisp-directory-command
|
|
|
131 "(namestring *default-pathname-defaults*)"
|
|
|
132
|
|
|
133 ilisp-set-directory-command
|
|
|
134 "(setq *default-pathname-defaults* (parse-namestring \"%s\"))")
|
|
|
135
|
|
|
136 (setq ilisp-load-command
|
|
|
137 "(load \"%s\")")
|
|
|
138
|
|
|
139 (setq ilisp-compile-file-command
|
|
|
140 "(ILISP:ilisp-compile-file \"%s\" \"%s\")"))
|
|
|
141
|
|
|
142 ;;; end of file -- ilisp-cl.el --
|
