From 60c1146e18d2c545acb2c8c988691e6c183b5bd3 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 29 Jun 2017 12:35:40 +0200 Subject: [PATCH] Assorted fixes. Refrain from killing the Common Lisp image when doing interactive regression testing if we typo'ed the regression test file name... --- src/pgsql/pgsql-create-schema.lisp | 1 + src/regress/regress.lisp | 3 ++- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/pgsql/pgsql-create-schema.lisp b/src/pgsql/pgsql-create-schema.lisp index 4def048..6e46514 100644 --- a/src/pgsql/pgsql-create-schema.lisp +++ b/src/pgsql/pgsql-create-schema.lisp @@ -339,6 +339,7 @@ "Reset all sequences created during this MySQL migration." (log-message :notice "Reset sequences") (with-stats-collection ("Reset Sequences" + :use-result-as-read t :use-result-as-rows t :section section) (let ((tables (table-list catalog))) diff --git a/src/regress/regress.lisp b/src/regress/regress.lisp index e063565..c5e4c35 100644 --- a/src/regress/regress.lisp +++ b/src/regress/regress.lisp @@ -11,7 +11,8 @@ "Run a regression test for given LOAD-FILE." (unless (probe-file load-file) (format t "Regression testing ~s: file does not exists." load-file) - (uiop:quit +os-code-error-regress+)) + #-pgloader-image (values nil +os-code-error-regress+) + #+pgloader-image (uiop:quit +os-code-error-regress+)) ;; now do our work (with-monitor (:start-logger start-logger)