Mercurial > hg > xemacs-beta

comparison lisp/ilisp/ilisp-cl.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children b82b59fe008d
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
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 --