From 9dcb43ca6410fcc898ddbdd14f1cea6d30ea581a Mon Sep 17 00:00:00 2001
From: Sean Whitton <spwhitton@spwhitton.name>
Date: Fri, 26 Mar 2021 14:32:27 -0700
Subject: add missing PROGN in WITH-REMOTE-CURRENT-DIRECTORY

Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
---
 src/connection.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/connection.lisp')

diff --git a/src/connection.lisp b/src/connection.lisp
index b40ab01..b1c81c1 100644
--- a/src/connection.lisp
+++ b/src/connection.lisp
@@ -254,7 +254,7 @@ the working directory of the Lisp process using UIOP:WITH-CURRENT-DIRECTORY."
        (unwind-protect
             (if (lisp-connection-p)
                 (with-current-directory (,new) ,@forms)
-                ,@forms)
+                (progn ,@forms))
          (setf (slot-value *connection* 'current-directory) ,previous)))))
 
 (defun pwd ()
-- 
cgit v1.2.3