diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-29 12:19:25 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-31 15:55:26 -0700 |
| commit | 98b727ae3d20a3447288254f421d9524ef8e6548 (patch) | |
| tree | 4fa54e7aa7220a83f8501c11e6de33ce41b630bf /src/connection/local.lisp | |
| parent | 1f12dfda4aeb6d08af454d60caa5985b2bd5b1ba (diff) | |
| download | consfigurator-98b727ae3d20a3447288254f421d9524ef8e6548.tar.gz | |
add CONNECTION-READFILE-AND-REMOVE to improve RUN performance
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/local.lisp')
| -rw-r--r-- | src/connection/local.lisp | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/connection/local.lisp b/src/connection/local.lisp index 4bd272e..6645178 100644 --- a/src/connection/local.lisp +++ b/src/connection/local.lisp @@ -45,6 +45,9 @@ root Lisp is running on, as the root Lisp's uid.")) (defmethod connection-readfile ((connection local-connection) path) (read-file-string path)) +(defmethod connection-readfile-and-remove ((connection local-connection) path) + (prog1 (read-file-string path) (delete-file path))) + (defmethod connection-writefile ((connection local-connection) path content |