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)