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

diff --git a/src/code/sharpm.lisp b/src/code/sharpm.lisp
index e03e1a3..f0a1168 100644
--- a/src/code/sharpm.lisp
+++ b/src/code/sharpm.lisp
@@ -313,7 +313,7 @@
 (defun sharp-vertical-bar (stream sub-char numarg)
   (ignore-numarg sub-char numarg)
   (let ((stream (in-synonym-of stream)))
-    (if (lisp-stream-p stream)
+    (if (ansi-stream-p stream)
 	(prepare-for-fast-read-char stream
 	  (do ((level 1)
 	       (prev (fast-read-char) char)