diff --git a/bundle.lisp b/bundle.lisp index 069568695f491b6856583bedb3431a9e63789fb6..4e3106d3eeb7eb93dfbf72c334ed758cfedcfd02 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -454,8 +454,10 @@ itself.")) ;; operation on a system and its dependencies #+ecl (with-upgradability () - (unless (use-ecl-byte-compiler-p) - (setf *load-system-operation* 'load-fasl-op)) + ;; I think that Juanjo intended for this to be, + ;; but it breaks 4 tests in what looks like to be a compiler bug, so I'll punt for now. + ;;(unless (use-ecl-byte-compiler-p) + ;; (setf *load-system-operation* 'load-fasl-op)) (defmethod perform ((o link-op) (c system)) (let* ((object-files (input-files o c))