diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 14:18:39 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 17:01:18 -0700 |
commit | b2fbc36eedd14e0eb6c012554810a5b75a2e015a (patch) | |
tree | 3d9fe6165981c183d146e1edc375f95b7c3dea81 /src/util.lisp | |
parent | 3525237f97a3d01ee7d600e6441b520951e874b9 (diff) | |
download | consfigurator-b2fbc36eedd14e0eb6c012554810a5b75a2e015a.tar.gz |
separately upload, compile and load each ASDF system
This avoids recompiling unchanged systems on every deploy, which makes for a
decent performance boost, especially on systems with less processing power.
Drop the idea of relying on distribution packages on the remote side -- we
want to use the same version of the source as is running in the root Lisp.
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/util.lisp b/src/util.lisp index 60653da..c8dc04c 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -33,12 +33,6 @@ `(and (symbolp ,symbol) (string= (symbol-name ',name) (symbol-name ,symbol)))) -(defun normalise-system (system) - (etypecase system - (string system) - (symbol (string-downcase - (symbol-name system))))) - (defun memstring= (string list) (member string list :test #'string=)) |