X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsharpm.lisp;h=e03e1a359c1d2e978c99a9d8f6cc134e001b2506;hb=fbe6e22af842835f7c70309f4d48064ca3984ad0;hp=f172559a1411cb8d360fa799975da33e41026334;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index f172559..e03e1a3 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -300,17 +300,14 @@
 
 (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
-	   (%reader-error stream
-			  "unrecognized character name: ~S"
+	   (%reader-error stream "unrecognized character name: ~S"
 			  charstring)))))
 
 (defun sharp-vertical-bar (stream sub-char numarg)