X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsysmacs.lisp;h=67e29ddefcdccbb24b862f5d29304ce70e63f588;hb=5e291412ff095a2016388eee8ac265e12d565119;hp=c4993f4dca53283186b148d9957bfe5e161c95f7;hpb=95110584db3224cf61b774f1402a71a79e61432f;p=sbcl.git

diff --git a/src/code/sysmacs.lisp b/src/code/sysmacs.lisp
index c4993f4..67e29dd 100644
--- a/src/code/sysmacs.lisp
+++ b/src/code/sysmacs.lisp
@@ -105,7 +105,7 @@
 (defmacro prepare-for-fast-read-char (stream &body forms)
   `(let* ((%frc-stream% ,stream)
 	  (%frc-method% (ansi-stream-in %frc-stream%))
-	  (%frc-buffer% (ansi-stream-in-buffer %frc-stream%))
+	  (%frc-buffer% (ansi-stream-cin-buffer %frc-stream%))
 	  (%frc-index% (ansi-stream-in-index %frc-stream%)))
      (declare (type index %frc-index%)
 	      (type ansi-stream %frc-stream%))
@@ -126,7 +126,7 @@
      (prog1 (fast-read-char-refill %frc-stream% ,eof-error-p ,eof-value)
 	    (setq %frc-index% (ansi-stream-in-index %frc-stream%))))
     (t
-     (prog1 (code-char (aref %frc-buffer% %frc-index%))
+     (prog1 (aref %frc-buffer% %frc-index%)
 	    (incf %frc-index%)))))
 
 ;;;; And these for the fasloader...