From 210a2d70570792f8fac53960557232de910bff37 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 5 Sep 2021 15:38:46 -0700 Subject: add dep on Anaphora and use APROG1, ALET & AAND in various places Signed-off-by: Sean Whitton --- src/connection.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/connection.lisp') diff --git a/src/connection.lisp b/src/connection.lisp index efd86ad..0e80fff 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -526,8 +526,8 @@ subclass to the :HOSTATTRS subroutine of properties calling this." (defun empty-remote-directory (directory) "Recursively delete the contents of DIRECTORY, but not DIRECTORY itself." - (let ((d (escape-sh-token (drop-trailing-slash (unix-namestring directory))))) - (mrun (format nil "rm -rf -- ~A/* ~A/.[!.]* ~A/..?*" d d d)))) + (alet (escape-sh-token (drop-trailing-slash (unix-namestring directory))) + (mrun (format nil "rm -rf -- ~A/* ~A/.[!.]* ~A/..?*" it it it)))) (defun remote-exists-p (&rest paths) "Does each of PATHS exists? -- cgit v1.2.3