From 1306b4c953057de56ea79c6089ed8bacc8abe08f Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Wed, 9 Jan 2019 18:57:33 +0100
Subject: [PATCH] Desultory improvements.

Killing tasks in the error handling must be done carefully, and given this
testing session it seems better to refrain from doing it when erroring out
at COPY init time (missing column is an example of that). The approach
around that is still very much ad-hoc rather than systematic.

In passing improve the `make save` option to producing a binary image: have
the make recipe respect the CL variable. The command line options
differences were already accounted for.
---
 Makefile                | 2 +-
 src/load/copy-data.lisp | 1 -
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 38d8a38..f077847 100644
--- a/Makefile
+++ b/Makefile
@@ -165,7 +165,7 @@ test: $(PGLOADER)
 	$(MAKE) PGLOADER=$(realpath $(PGLOADER)) CL=$(CL) -C test regress
 
 save: ./src/save.lisp $(LISP_SRC)
-	sbcl --no-userinit --load ./src/save.lisp
+	$(CL) $(CL_OPTS) --load ./src/save.lisp
 
 check-saved: save
 	$(MAKE) PGLOADER=$(realpath $(PGLOADER)) CL=$(CL) -C test regress
diff --git a/src/load/copy-data.lisp b/src/load/copy-data.lisp
index 676b814..5b19c11 100644
--- a/src/load/copy-data.lisp
+++ b/src/load/copy-data.lisp
@@ -79,7 +79,6 @@
             #'(lambda (condition)
                 ;; stop the other tasks and then transfer the control
                 (log-message :log "COPY INIT ERROR")
-                (lp:kill-tasks :default)
                 (lp:invoke-transfer-error condition)))
            (on-error-stop
             #'(lambda (condition)