From af46dc280f53a3315ef6e46564389bd116971f4c Mon Sep 17 00:00:00 2001 From: Elias Pipping Date: Sun, 6 Nov 2016 22:40:12 +0100 Subject: [PATCH] Use uiop:run-program ... :directory ... (#473) --- src/params.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/params.lisp b/src/params.lisp index 15c0f36..aca13a5 100644 --- a/src/params.lisp +++ b/src/params.lisp @@ -45,11 +45,11 @@ "Return the current abbreviated git hash of the development tree." (handler-case (let ((git-hash `("git" "--no-pager" "log" "-n1" "--format=format:%h"))) - (uiop:with-current-directory ((asdf:system-source-directory :pgloader)) - (multiple-value-bind (stdout stderr code) - (uiop:run-program git-hash :output :string) - (declare (ignore code stderr)) - stdout))) + (multiple-value-bind (stdout stderr code) + (uiop:run-program git-hash :output :string + :directory (asdf:system-source-directory :pgloader)) + (declare (ignore code stderr)) + stdout)) (condition (e) ;; in case anything happen, just return X.Y.Z~devel (declare (ignore e))