Assorted fixes.

Refrain from killing the Common Lisp image when doing interactive regression
testing if we typo'ed the regression test file name...
This commit is contained in:
Dimitri Fontaine 2017-06-29 12:35:40 +02:00
parent cea82a6aa8
commit 60c1146e18
2 changed files with 3 additions and 1 deletions

View File

@ -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)))

View File

@ -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)