X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=b6f28cf3b081dc15e7b51972fcca50095754d8c8;hb=5da5805594423a2d2a841b88617fd2c87fc05750;hp=ac9ec2c5d9839cd2d4c7421ffcb108c21392beb6;hpb=13883fd2914c2beaf3634a87b3379735e5f49a29;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index ac9ec2c..b6f28cf 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -832,7 +832,7 @@
 	(#.+char-attr-single-escape+ (go SINGLE-ESCAPE))
 	(#.+char-attr-package-delimiter+ (go COLON))
 	(#.+char-attr-multiple-escape+ (go MULT-ESCAPE))
-	(#.+char-attr-invalid+ (%reader-error "invalid constituent"))
+	(#.+char-attr-invalid+ (%reader-error stream "invalid constituent"))
 	;; can't have eof, whitespace, or terminating macro as first char!
 	(t (go SYMBOL)))
      SIGN ; saw "sign"