fixing newline return for source, precisely for <pre> tag - cl-yag - Common Lisp Yet Another website Generator (HTM) git clone git://bitreich.org/cl-yag/ git://enlrupgkhuxnvlhsf6lc3fziv5h2hhfrinws65d7roiv6bfj7d652fid.onion/cl-yag/ (DIR) Log (DIR) Files (DIR) Refs (DIR) Tags (DIR) README (DIR) LICENSE --- (DIR) commit 90c0b0856598602ac56d81dc055f3d17c31da061 (DIR) parent da8e0af550cd5a47d4fccc399636d47287b143dd (HTM) Author: Solene Rapenne <solene@dataswamp.org> 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(-) --- (DIR) 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