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