From d7330ae7627e527658df8588c658f8d2c77b6f3d Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Thu, 3 Aug 2023 15:13:30 +0200 Subject: [PATCH] cmp: fix inline expansion of princ Has to return the object to be printed. --- src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp b/src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp index 9b51075ed..494b97d71 100644 --- a/src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp +++ b/src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp @@ -44,11 +44,11 @@ '(:wchar :object) '(:wchar) "ecl_princ_char(#0,#1)" t t)) ((and foundp (typep value 'base-string) (< (length value) 80)) - (produce-inline-loc (list stream) - '(:object) '(:void) - (concatenate 'string "ecl_princ_str(" + (produce-inline-loc (list expression stream) + '(:object :object) '(:object) + (concatenate 'string "(ecl_princ_str(" (c-inline-safe-string value) - ",#0)") + ",#1),#0)") t t)) (t (produce-inline-loc (list expression stream)