From 6617e5f0d8c20172a38dedf10bd8c89d24acfa45 Mon Sep 17 00:00:00 2001 From: Richard M Kreuter Date: Mon, 4 Feb 2008 22:55:21 +0000 Subject: [PATCH] 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. --- src/code/show.lisp | 5 ++++- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 2 deletions(-) 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)))) diff --git a/version.lisp-expr b/version.lisp-expr index 9b95dbc..5b3870f 100644 --- 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" -- 1.7.10.4