From b2fbc36eedd14e0eb6c012554810a5b75a2e015a Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 17 May 2021 14:18:39 -0700 Subject: 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 --- src/connection.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/connection.lisp') 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." -- cgit v1.2.3