From 9be130cdbef1dced6e094bdd0d8cdb8f70aa123a Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Fri, 8 Sep 2017 12:33:24 +0200 Subject: [PATCH] Fix symbol export hacks to execute at load time. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit It seems that when compiling with CCL in “batch” mode, that is using buildapp, the local symbol exporting facility didn't work at all. It needs to be run at load time so that the compiler sees the symbols. Fix #628. --- src/package.lisp | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/package.lisp b/src/package.lisp index 801b905..d28a89c 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -302,12 +302,13 @@ #:show-encodings #:make-external-format)) -(cl-user::export-inherited-symbols "pgloader.queries" "pgloader.utils") -(cl-user::export-inherited-symbols "pgloader.quoting" "pgloader.utils") -(cl-user::export-inherited-symbols "pgloader.catalog" "pgloader.utils") -(cl-user::export-inherited-symbols "pgloader.monitor" "pgloader.utils") -(cl-user::export-inherited-symbols "pgloader.state" "pgloader.utils") -(cl-user::export-inherited-symbols "pgloader.batch" "pgloader.utils") +(eval-when (:compile-toplevel :load-toplevel :execute) + (cl-user::export-inherited-symbols "pgloader.queries" "pgloader.utils") + (cl-user::export-inherited-symbols "pgloader.quoting" "pgloader.utils") + (cl-user::export-inherited-symbols "pgloader.catalog" "pgloader.utils") + (cl-user::export-inherited-symbols "pgloader.monitor" "pgloader.utils") + (cl-user::export-inherited-symbols "pgloader.state" "pgloader.utils") + (cl-user::export-inherited-symbols "pgloader.batch" "pgloader.utils")) ;;