From cee6703602fdb4576deabda462392d5647f0b123 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 16 Feb 2010 22:31:54 +0100 Subject: [PATCH] COMPILE-FILE only outputs NIL when there were serious errors --- src/cmp/cmpmain.lsp | 2 +- src/new-cmp/cmpmain.lsp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 6b99d1c88..728304aa4 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -703,7 +703,7 @@ compiled successfully, returns the pathname of the compiled file" (setf warning-p t)) ((typep i '(or compiler-error warning)) (setf warning-p t failure-p t))) - finally (return (values (and (not failure-p) main-value) warning-p failure-p)))) + finally (return (values main-value warning-p failure-p)))) #-dlopen (defun compile (name &optional (def nil supplied-p)) diff --git a/src/new-cmp/cmpmain.lsp b/src/new-cmp/cmpmain.lsp index 92a7d30a4..486dcb9df 100644 --- a/src/new-cmp/cmpmain.lsp +++ b/src/new-cmp/cmpmain.lsp @@ -587,7 +587,7 @@ compiled successfully, returns the pathname of the compiled file" (setf warning-p t)) ((typep i '(or compiler-error warning)) (setf warning-p t failure-p t))) - finally (return (values (and (not failure-p) main-value) warning-p failure-p)))) + finally (return (values main-value warning-p failure-p)))) #-dlopen (defun compile (name &optional (def nil supplied-p))