1.0.14.19: Fix SB-SHOW, broken for a while.

* Optimization in CONCATENATE broke SB-SHOW in the cross compiler.
  Disable this optimization in SB-SHOW.

diff --git a/src/code/show.lisp b/src/code/show.lisp
index f22336b..be2b45c 100644 (file)
--- 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))))

diff --git a/version.lisp-expr b/version.lisp-expr
index 9b95dbc..5b3870f 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.14.18"
+"1.0.14.19"