Mercurial > hg > xemacs-beta

comparison lisp/edebug/edebug-cl-read.el @ 70:131b0175ea99 r20-0b30

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