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

cmp: remove superfluous encode-string function

Browse source
This commit is contained in:
Marius Gerbershagen 2023-03-18 15:18:20 +01:00
parent acd81e16cd
commit 4705967061
1 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/cmp/cmpc-wt.lsp
View file

@ -174,21 +174,12 @@
(defvar *wt-string-size* 0)
#+unicode
(defun encode-string (string format)
(let* ((output (make-array (round (* 1.2 (length string)))
:element-type 'base-char
:adjustable t
:fill-pointer 0))
(stream (ext:make-sequence-output-stream output :external-format format)))
(write-string string stream)
output))
(defun wt-filtered-data (string stream &key one-liner
(external-format #-unicode :default #+unicode :utf-8))
(declare (ignorable external-format))
#+unicode
(setf string (encode-string string external-format))
(setf string (ext:string-to-octets string :external-format external-format
:element-type 'base-char))
(let ((N (length string))
(wt-data-column 80))
(incf *wt-string-size* N) ; 1+ accounts for a blank space