X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fshow.lisp;h=be2b45c3c92fcb110f7ed6ecb18b04b51aca9824;hb=960a9fbd48e695e5b970a01315aa687ab59dc3fe;hp=f22336bca9053e254c1c11910006368c3eee2511;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/show.lisp b/src/code/show.lisp
index f22336b..be2b45c 100644
--- a/src/code/show.lisp
+++ b/src/code/show.lisp
@@ -154,7 +154,10 @@
 (defmacro /show0 (&rest string-designators)
   ;; We can't use inline MAPCAR here because, at least in 0.6.11.x,
   ;; this code gets compiled before DO-ANONYMOUS is defined.
-  (declare (notinline mapcar))
+  ;; Similarly, we don't use inline CONCATENATE, because some of the
+  ;; machinery behind its optimizations isn't available in the
+  ;; cross-compiler.
+  (declare (notinline mapcar concatenate))
   (let ((s (apply #'concatenate
                   'simple-string
                   (mapcar #'string string-designators))))