diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 16:04:40 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-20 16:04:40 -0700 |
| commit | 70d588976cac524207581042356d22853dd7f497 (patch) | |
| tree | 968bf067f9d98b1ada84302a0db275021967ced0 | |
| parent | 200eeb8abedb3bd87b0cd44e5d7838947b9c0d58 (diff) | |
| download | consfigurator-70d588976cac524207581042356d22853dd7f497.tar.gz | |
defvar *CONNECTION* early enough
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/connection.lisp | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index acdba8d..f672bd2 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -19,6 +19,13 @@ ;;;; Connections +;; global value gets set in connection/local.lisp, but the symbol is not +;; exported as it should only get bound by DEPLOY* +(defvar *connection* nil + "Object representing the currently active connection. +Connections dynamically bind this variable and then apply properties. Its +global value should be regarded as a constant.") + ;; generic function operating on keywords which identify connection types (defgeneric establish-connection (type remaining &key) (:documentation @@ -109,13 +116,6 @@ Only used, internally, for uploading prerequisite data, and only to caches.")) (defmethod connection-teardown ((connection connection)) (values)) -;; global value gets set in connection/local.lisp, but the symbol is not -;; exported as it should only get bound by DEPLOY* -(defvar *connection* nil - "Object representing the currently active connection. -Connections dynamically bind this variable and then apply properties. Its -global value should be regarded as a constant.") - ;;;; Functions to access the slots of the current connection |