mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2026-05-04 18:36:12 +02:00
Code Issues Projects Releases Wiki Activity

Improve logging when loading extra code, see #245.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-06-11 13:02:29 +02:00
parent ff5b596219
commit 322f7dd8b5
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/main.lisp
View File

@ -172,6 +172,7 @@
:test #'string=)
(error "Unknown lisp file extension: ~s" (pathname-type pathname)))
(log-message :info "Loading code from ~s" pathname)
(load (compile-file pathname :verbose nil :print nil))))
(defun main (argv)
@ -256,17 +257,6 @@
(uiop:quit +os-code-error+))))
(uiop:quit +os-code-success+))
(when load
(loop for filename in load do
(handler-case
(load-extra-transformation-functions filename)
(condition (e)
(format *standard-output*
"Failed to load lisp source file ~s~%"
filename)
(format *standard-output* "~a~%" e)
(uiop:quit +os-code-error+)))))
;; Now process the arguments
(when arguments
;; Start the logs system
@ -278,6 +268,18 @@
(log-message :log "Main logs in '~a'" (probe-file *log-filename*))
(log-message :log "Data errors in '~a'~%" *root-dir*)
;; load extra lisp code provided for by the user
(when load
(loop for filename in load do
(handler-case
(load-extra-transformation-functions filename)
(condition (e)
(log-message :fatal
"Failed to load lisp source file ~s~%"
filename)
(log-message :error "~a" e)
(uiop:quit +os-code-error+)))))
(handler-case
;; The handler-case is to catch unhandled exceptions at the
;; top level.