From 010509f01a25b89160f8f220edf2e2ea7dfb5e1b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 11 Dec 2011 18:43:35 +0100 Subject: [PATCH] Newline in a warning for readability --- src/cmp/cmpenv-proclaim.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpenv-proclaim.lsp b/src/cmp/cmpenv-proclaim.lsp index bd15645fb..4630ca3ee 100644 --- a/src/cmp/cmpenv-proclaim.lsp +++ b/src/cmp/cmpenv-proclaim.lsp @@ -87,12 +87,12 @@ (multiple-value-bind (found c-name) (si::mangle-name x t) (if found - (warn "The function ~s is already in the runtime. C-EXPORT-FNAME declaration ignored." x) + (warn "The function ~s is already in the runtime.~%C-EXPORT-FNAME declaration ignored." x) (put-sysprop x 'Lfun c-name)))) ((consp x) (destructuring-bind (c-name lisp-name) x (if (si::mangle-name lisp-name) - (warn "The funciton ~s is already in the runtime. C-EXPORT-FNAME declaration ignored." lisp-name) + (warn "The funciton ~s is already in the runtime.~%C-EXPORT-FNAME declaration ignored." lisp-name) (put-sysprop lisp-name 'Lfun c-name)))) (t (error "Syntax error in proclamation ~s" decl)))))