From f2790fd136c12442143e7b21d4535d76f7e23cce Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Thu, 15 Jan 2015 17:48:22 +0100 Subject: [PATCH] Some more --self-upgrade failing tests. --- src/hooks.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/src/hooks.lisp b/src/hooks.lisp index fea9841..7343088 100644 --- a/src/hooks.lisp +++ b/src/hooks.lisp @@ -34,5 +34,12 @@ ;;; Register all loaded systems in the image, so that ASDF don't search for ;;; 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* (remove "pgloader" (asdf:already-loaded-systems) :test #'string=))