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

Some more --self-upgrade failing tests.

Browse Source
This commit is contained in:
Dimitri Fontaine 2015-01-15 17:48:22 +01:00
parent 087d4d28cb
commit f2790fd136
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/hooks.lisp
View File

@ -34,5 +34,12 @@
;;; Register all loaded systems in the image, so that ASDF don't search for ;;; Register all loaded systems in the image, so that ASDF don't search for
;;; them again when doing --self-upgrade ;;; them again when doing --self-upgrade
;;; ;;;
(defun register-preloaded-system (system)
(unless (string= "pgloader" (asdf::coerce-name system))
(let ((version (slot-value system 'asdf::version)))
(asdf::register-preloaded-system system :version version))))
(asdf:map-systems #'register-preloaded-system)
(setf pgloader::*self-upgrade-immutable-systems* (setf pgloader::*self-upgrade-immutable-systems*
(remove "pgloader" (asdf:already-loaded-systems) :test #'string=)) (remove "pgloader" (asdf:already-loaded-systems) :test #'string=))