&#039;(&quot;foo&quot;) :output t)
             
             (format t &quot;~2&amp;Going one step down:~2%&quot;)
             (simple-inferiors:with-chdir (&quot;foo/&quot;)
               (simple-inferiors:run &quot;ls&quot; &#039;(&quot;-l&quot;) :output t)
               
               (format t &quot;~2&amp;Going deeper:~2%&quot;)
               (simple-inferiors:with-chdir (&quot;bar/&quot;)
                 (simple-inferiors:run &quot;ls&quot; &#039;(&quot;-l&quot;) :output t))))

Directory struct