mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-30 06:10:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

string-streams do not support full characters yet.

Browse source
This commit is contained in:
jgarcia 2008-03-11 22:17:38 +00:00
parent 5fdd1b564a
commit 3414537e9e
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/format.lsp
View file

@ -1996,8 +1996,8 @@
:downcase)))))
,@(expand-directive-list before))
#+ecl
`(let ((string (make-array 10 :element-type 'character :fill-pointer 0
:adjustable t)))
`(let ((string (make-array 10 :element-type 'base-char
:fill-pointer 0 :adjustable t)))
(unwind-protect
(with-output-to-string (stream string)
,@(expand-directive-list before))
@ -2033,8 +2033,8 @@
(before (subseq directives 0 posn))
(jumped t)
(after (nthcdr (1+ posn) directives))
(string (make-array 10 :element-type 'character :adjustable t
:fill-pointer 0)))
(string (make-array 10 :element-type 'base-char
:adjustable t :fill-pointer 0)))
(unwind-protect
(with-output-to-string (stream string)
(setf args (interpret-directive-list stream before orig-args args)))