 |
fixing newline return for source, precisely for <pre> tag - cl-yag - Common Lis… |
 |
git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws… |
 |
Log |
|
Files |
|
Refs |
|
Tags |
|
README |
|
LICENSE |
|
--- |
|
commit 90c0b0856598602ac56d81dc055f3d17c31da061 |
|
parent da8e0af550cd5a47d4fccc399636d47287b143dd |
|
Author: Solene Rapenne <[email protected]> |
|
Date: Tue, 3 May 2016 22:08:30 +0200 |
|
|
|
fixing newline return for source, precisely for <pre> tag |
|
|
|
Diffstat: |
|
M generator.lisp | 2 +- |
|
|
|
1 file changed, 1 insertion(+), 1 deletion(-) |
|
--- |
|
diff --git a/generator.lisp b/generator.lisp |
|
@@ -30,7 +30,7 @@ |
|
;; we have to remove the quotes |
|
;; when using collect in a loop |
|
(defun strip-quotes(input) |
|
- (format nil "~{~d~}" input)) |
|
+ (format nil "~{~d~%~}" input)) |
|
|
|
;; load a file as a string |
|
;; we escape ~ to avoid failures with format |
