diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:41:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-28 16:42:46 -0700 |
| commit | d50a65bd7adf5e4983c1f41b6bbe76b4a9d4e058 (patch) | |
| tree | 8b624664ec48d944471345be4d1cc4ddc39173bc /src/connection | |
| parent | fe9117e0bcaf65db50930e6320ff7012cee541e3 (diff) | |
| download | consfigurator-d50a65bd7adf5e4983c1f41b6bbe76b4a9d4e058.tar.gz | |
eliminate global value for *CONNECTION*
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection')
| -rw-r--r-- | src/connection/local.lisp | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 4de70c1..a8a967c 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -76,11 +76,3 @@ root Lisp is running on, as the root Lisp's uid.")) (defmethod connection-upload ((connection local-connection) from to) (copy-file from to)) - -;; set the root Lisp's connection context now we've defined its value -- other -;; implementations of ESTABLISH-CONNECTION will rely on this when they call -;; RUN, READFILE etc. -(eval-when (:load-toplevel :execute) - (unless consfigurator::*connection* - (setq consfigurator::*connection* - (make-instance 'local-connection)))) |