From bbf043bc213b2d6124659e8e47d34be4b345401e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 9 Sep 2016 14:44:06 +0200
Subject: [PATCH] *load-system-operation*: set to load-bundle-op

This makes loading system faster. See:
https://common-lisp.net/project/ecl/manual/re56.html
---
 bundle.lisp | 10 +++-------
 1 file changed, 3 insertions(+), 7 deletions(-)

diff --git a/bundle.lisp b/bundle.lisp
index 43a1d1f7c..7a335f530 100644
--- a/bundle.lisp
+++ b/bundle.lisp
@@ -512,13 +512,9 @@ for all the linkable object files associated with the system or its dependencies
 
 #+(or clasp ecl mkcl)
 (with-upgradability ()
-  ;; I think that Juanjo intended for this to be, but it was disabled before 3.1
-  ;; due to implementation bugs in ECL and MKCL that seem to have been fixed since
-  ;; -- see for ECL test-xach-update-bug.script and test-bundle.script,
-  ;; and for MKCL test-logical-pathname.script.
-  ;; We should probably reenable these after consulting with ECL and MKCL maintainers.
-  ;;(unless (or #+(or clasp ecl) (use-ecl-byte-compiler-p))
-  ;;  (setf *load-system-operation* 'load-bundle-op))
+
+  (unless (or #+(or clasp ecl) (use-ecl-byte-compiler-p))
+    (setf *load-system-operation* 'load-bundle-op))
 
   (defun system-module-pathname (module)
     (let ((name (coerce-name module)))
-- 
GitLab