projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.4:
[sbcl.git]
/
src
/
code
/
sharpm.lisp
diff --git
a/src/code/sharpm.lisp
b/src/code/sharpm.lisp
index
6ca5a51
..
e03e1a3
100644
(file)
--- a/
src/code/sharpm.lisp
+++ b/
src/code/sharpm.lisp
@@
-8,9
+8,6
@@
;;;; files for more information.
(in-package "SB!IMPL")
;;;; files for more information.
(in-package "SB!IMPL")
-
-(file-comment
- "$Header$")
\f
(declaim (special *read-suppress* *standard-readtable* *bq-vector-flag*))
\f
(declaim (special *read-suppress* *standard-readtable* *bq-vector-flag*))
@@
-303,17
+300,14
@@
(defun sharp-backslash (stream backslash numarg)
(ignore-numarg backslash numarg)
(defun sharp-backslash (stream backslash numarg)
(ignore-numarg backslash numarg)
- (unread-char backslash stream)
- (let* ((*readtable* *standard-readtable*)
- (charstring (read-extended-token stream)))
+ (let ((charstring (read-extended-token-escaped stream)))
(declare (simple-string charstring))
(cond (*read-suppress* nil)
((= (the fixnum (length charstring)) 1)
(char charstring 0))
((name-char charstring))
(t
(declare (simple-string charstring))
(cond (*read-suppress* nil)
((= (the fixnum (length charstring)) 1)
(char charstring 0))
((name-char charstring))
(t
- (%reader-error stream
- "unrecognized character name: ~S"
+ (%reader-error stream "unrecognized character name: ~S"
charstring)))))
(defun sharp-vertical-bar (stream sub-char numarg)
charstring)))))
(defun sharp-vertical-bar (stream sub-char numarg)