Mercurial > hg > xemacs-beta

comparison lisp/edebug/edebug-cl-read.el @ 72:b9518feda344 r20-0b31

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b31
author cvs
date Mon, 13 Aug 2007 09:03:46 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
71:bae944334fa4 72:b9518feda344
1 ;; edebug-cl-read.el - Edebug reader macros for use with cl-read. 1 ;;; edebug-cl-read.el --- Edebug reader macros for use with cl-read.
2 2
3 ;; Copyright (C) 1993 Daniel LaLiberte 3 ;; Copyright (C) 1993 Daniel LaLiberte
4 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> 4 ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu>
5 ;; Keywords: lisp, tools, maint 5 ;; Keywords: lisp, tools, maint
6 6
7 ;; This file is part of XEmacs.
8
9 ;; XEmacs is free software; you can redistribute it and/or modify it
10 ;; under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation; either version 2, or (at your option)
12 ;; any later version.
13
14 ;; XEmacs is distributed in the hope that it will be useful, but
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details.
18
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with XEmacs; see the file COPYING. If not, write to the Free
21 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
22 ;; 02111-1307, USA.
23
24 ;;; Synched up with: Not in FSF
25
26 ;;; Commentary:
27
7 ;; LCD Archive Entry: 28 ;; LCD Archive Entry:
8 ;; edebug-cl-read.el|Daniel LaLiberte|liberte@cs.uiuc.edu 29 ;; edebug-cl-read.el|Daniel LaLiberte|liberte@cs.uiuc.edu
9 ;; |Edebug reader macros for cl-read.el 30 ;; |Edebug reader macros for cl-read.el
10 ;; |$Date: 1996/12/18 22:43:07 $|$Revision: 1.1.1.1 $|~/modes/edebug-cl-read.el| 31 ;; |$Date: 1996/12/18 22:51:45 $|$Revision: 1.1.1.2 $|~/modes/edebug-cl-read.el|
11
12 ;; This file is not yet part of GNU Emacs.
13
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; any later version.
18
19 ;; GNU Emacs is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
23
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to
26 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
27
28 ;;;; Commentary:
29 32
30 ;; If you use cl-read.el and want to use edebug with any code 33 ;; If you use cl-read.el and want to use edebug with any code
31 ;; in a file written with CL read syntax, then you need to use this 34 ;; in a file written with CL read syntax, then you need to use this
32 ;; package. 35 ;; package.
33 36
38 ;; there is no way to instrument the result of the evaluation, and 41 ;; there is no way to instrument the result of the evaluation, and
39 ;; no way to tell Edebug not to try. 42 ;; no way to tell Edebug not to try.
40 43
41 ;; Need to mangle all local variable names that might be visible to 44 ;; Need to mangle all local variable names that might be visible to
42 ;; eval, e.g. stream, char. Alternatively, packages could hide them. 45 ;; eval, e.g. stream, char. Alternatively, packages could hide them.
46
47 ;;; Code:
43 48
44 (require 'cl) 49 (require 'cl)
45 ;; For byte compiling cl-read is needed. 50 ;; For byte compiling cl-read is needed.
46 ;; But edebug-cl-read should not even be loaded unless cl-read already is. 51 ;; But edebug-cl-read should not even be loaded unless cl-read already is.
47 (require 'cl-read) 52 (require 'cl-read)