mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

cmp: fix inline expansion of princ

Browse source 
Has to return the object to be printed.
This commit is contained in:
Marius Gerbershagen 2023-08-03 15:13:30 +02:00
parent 7761d0b27a
commit d7330ae762
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/cmp/cmpbackend-cxx/cmpc-opt-printer.lsp
View file

@ -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)