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/connection.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/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 508f775..2ac43d7 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -473,12 +473,12 @@ connattr, or nil if nothing should be propagated.") (when-let ((new (propagate-connattr k v connection))) (setf (getf (slot-value connection 'connattrs) k) new)))))) -(defun get-connattr (k) +(defun get-connattr (k &optional (connection *connection*)) "Get the connattr identified by K for the current connection." - (getf (slot-value *connection* 'connattrs) k)) + (getf (slot-value connection 'connattrs) k)) -(defun (setf get-connattr) (v k) - (setf (getf (slot-value *connection* 'connattrs) k) v)) +(defun (setf get-connattr) (v k &optional (connection *connection*)) + (setf (getf (slot-value connection 'connattrs) k) v)) (defmacro with-connattrs ((&rest connattrs) &body forms) "Execute FORMS with connattrs replaced as specified by CONNATTRS, a plist." |