mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-28 07:22:27 -08:00
Code Issues Projects Releases Packages Wiki Activity

allow non-ascii characters in debug info

Browse source
This commit is contained in:
Marius Gerbershagen 2023-03-13 19:53:01 +01:00
parent ae19006cb8
commit acd81e16cd
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmppass2-top.lsp
View file

@ -341,7 +341,7 @@
(wt-nl-close-many-braces 0)))))
(defun t3local-fun-body (fun)
(let ((string (make-array 2048 :element-type 'base-char
(let ((string (make-array 2048 :element-type 'character
:adjustable t
:fill-pointer 0)))
(with-output-to-string (*compiler-output1* string)