From b8b4ce70653323850a3fb257159ae35eff071ab4 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 15 Mar 2021 16:11:51 -0700 Subject: don't ever try to load ASDF systems Preprocessing a propspec will catch undefined properties and property combinators, and we only eval preprocessed propspecs, so there is no point in doing this anymore. We still need the list of ASDF systems to know what to upload. Signed-off-by: Sean Whitton --- src/propspec.lisp | 8 -------- 1 file changed, 8 deletions(-) (limited to 'src/propspec.lisp') diff --git a/src/propspec.lisp b/src/propspec.lisp index 9404d13..5f7b138 100644 --- a/src/propspec.lisp +++ b/src/propspec.lisp @@ -225,15 +225,7 @@ systems." :propspec `(silent-seqprops ,(propspec-props first) ,(propspec-props second)))) -(defvar *suppress-loading-systems* nil - "Bound by code which needs to prevent EVAL-PROPSPEC from attempting to load -the ASDF systems associated with the propspec to be evaluated.") - (defmethod eval-propspec ((propspec preprocessed-propspec)) - (unless *suppress-loading-systems* - (dolist (system (propspec-systems propspec)) - (unless (asdf:component-loaded-p system) - (asdf:load-system system)))) (eval (slot-value propspec 'preprocessed-propspec-expression))) (define-condition ambiguous-unevaluated-propspec (ambiguous-propspec) () -- cgit v1.2.3