X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=d658516140fced218cb6c0959e17c17d05fa97e9;hb=1af3faa2b79125b774c2182cab841ed7ee555bed;hp=969c5623f68a982c557c46f4ea26064cfa3cb500;hpb=af178240ffbda39e9c3bf584ad8ed0adcf4b6abd;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 969c562..d658516 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -466,7 +466,7 @@
                          (find 'character
                                sb!vm:*specialized-array-element-type-properties*
                                :key #'sb!vm:saetp-specifier)))
-                       (bash-function (intern (format nil "UB~A-BASH-COPY" n-character-array-bits)
+                       (bash-function (intern (format nil "UB~D-BASH-COPY" n-character-array-bits)
                                               (find-package "SB!KERNEL"))))
                   bash-function)
                 ibuf +ansi-stream-in-buffer-extra+