mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-08 07:16:58 +02:00
Code Issues Projects Releases Wiki Activity

List files to load for system.

Browse Source 
Install a new function in the hooks file. This function might help fix
--self-upgrade later, we keep it around for when we'll have time to see
about that.
This commit is contained in:
Dimitri Fontaine 2017-10-16 17:24:47 +02:00
parent 52720a5e6f
commit 9b80d2914c
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/hooks.lisp
View File

@ -48,3 +48,11 @@
(setf pgloader::*self-upgrade-immutable-systems*
(remove "pgloader" (asdf:already-loaded-systems) :test #'string=))
(defun list-files-to-load-for-system (system-name)
(loop for (o . c) in (asdf/plan:plan-actions
(asdf/plan:make-plan 'asdf/plan:sequential-plan
'asdf:load-source-op
(asdf:find-system system-name)))
when (typep o 'asdf:load-source-op)
append (asdf:input-files o c)))