Mercurial > hg > xemacs-beta

comparison lisp/edebug/cl-read.el @ 108:360340f9fd5f r20-1b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b6
author cvs
date Mon, 13 Aug 2007 09:18:39 +0200
parents b9518feda344
children
comparison
equal deleted inserted replaced
107:523141596bda 108:360340f9fd5f
81 ;; 81 ;;
82 ;; 82 ;;
83 ;; Dispatch Character Macro" `#' 83 ;; Dispatch Character Macro" `#'
84 ;; 84 ;;
85 ;; #'<function> function quoting 85 ;; #'<function> function quoting
86 ;; #\<charcter> character syntax 86 ;; #\<character> character syntax
87 ;; #.<form> read time evaluation 87 ;; #.<form> read time evaluation
88 ;; #p<path>, #P<path> paths 88 ;; #p<path>, #P<path> paths
89 ;; #+<feature>, #-<feature> conditional reading 89 ;; #+<feature>, #-<feature> conditional reading
90 ;; #<n>=, #<n># tags for shared structure reading 90 ;; #<n>=, #<n># tags for shared structure reading
91 ;; 91 ;;
206 206
207 207
208 ; Change History 208 ; Change History
209 ; 209 ;
210 ; $Log: cl-read.el,v $ 210 ; $Log: cl-read.el,v $
211 ; Revision 1.1.1.2 1996/12/18 22:51:45 steve 211 ; Revision 1.2 1997/03/08 23:25:50 steve
212 ; XEmacs 20.0 -- Beta 31 212 ; Patches to Beta6
213 ; 213 ;
214 ; Revision 1.19 94/03/21 19:59:24 liberte 214 ; Revision 1.19 94/03/21 19:59:24 liberte
215 ; Add invalid-cl-read-syntax error symbol. 215 ; Add invalid-cl-read-syntax error symbol.
216 ; Add reader::read-sexp and reader::read-sexp-func to allow customization 216 ; Add reader::read-sexp and reader::read-sexp-func to allow customization
217 ; based on the results of reading. 217 ; based on the results of reading.
380 ;; 2. A function (i.e., a symbol with a function definition, a byte 380 ;; 2. A function (i.e., a symbol with a function definition, a byte
381 ;; compiled function or an uncompiled lambda expression). It means the 381 ;; compiled function or an uncompiled lambda expression). It means the
382 ;; character is a macro character. 382 ;; character is a macro character.
383 ;; 383 ;;
384 ;; 3. A vector of length `reader::readtable-size'. Elements of this vector 384 ;; 3. A vector of length `reader::readtable-size'. Elements of this vector
385 ;; may be `nil' or a function (see 2.). It means the charater is a 385 ;; may be `nil' or a function (see 2.). It means the character is a
386 ;; dispatch character, and the vector its dispatch fucntion table. 386 ;; dispatch character, and the vector its dispatch function table.
387 387
388 (defvar *readtable*) 388 (defvar *readtable*)
389 (defvar reader::internal-standard-readtable) 389 (defvar reader::internal-standard-readtable)
390 390
391 (defun* copy-readtable 391 (defun* copy-readtable
1298 ;; evals) in the current buffer. Alternatively, this could be fixed 1298 ;; evals) in the current buffer. Alternatively, this could be fixed
1299 ;; in C. In Lemacs 19.6 and later, this function is already written 1299 ;; in C. In Lemacs 19.6 and later, this function is already written
1300 ;; in lisp, and based on more primitive read functions we already 1300 ;; in lisp, and based on more primitive read functions we already
1301 ;; replaced. The reading happens during the interactive parameter 1301 ;; replaced. The reading happens during the interactive parameter
1302 ;; retrieval, which is written in lisp, too. So this replacement of 1302 ;; retrieval, which is written in lisp, too. So this replacement of
1303 ;; eval-expresssion is only required fro (FSF) Emacs 18 (and 19?). 1303 ;; eval-expression is only required for (FSF) Emacs 18 (and 19?).
1304 1304
1305 (or (fboundp 'reader::original-eval-expression) 1305 (or (fboundp 'reader::original-eval-expression)
1306 (fset 'reader::original-eval-expression 1306 (fset 'reader::original-eval-expression
1307 (symbol-function 'eval-expression))) 1307 (symbol-function 'eval-expression)))
1308 1308