mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 05:43:19 -08:00
Code Issues Projects Releases Packages Wiki Activity

The newline character has to be _before_ each string in clines

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-13 09:46:36 +01:00
parent 3102c32ef4
commit cbc50ceab2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpffi.lsp
View file

@ -332,10 +332,11 @@
(wt (add-object object :permanent t))))
(write-char c output-stream))))))
(loop for s in *clines-string-list*
do (terpri output-stream)
do (if (find #\@ s)
(parse-one-string s output-stream)
(write-string s output-stream))
do (terpri output-stream))
(write-string s output-stream)))
(terpri output-stream)
(setf *clines-string-list* nil)))
;; ----------------------------------------------------------------------