mirrors/pgloader
1
0
Fork 0
mirror of https://github.com/dimitri/pgloader.git synced 2025-08-11 16:57:00 +02:00
Code Issues Projects Releases Wiki Activity

Use uiop:run-program ... :directory ... (#473)

Browse Source
This commit is contained in:
Elias Pipping 2016-11-06 22:40:12 +01:00 committed by Dimitri Fontaine
parent 0bd4488d78
commit af46dc280f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/params.lisp
View File

@ -45,11 +45,11 @@
"Return the current abbreviated git hash of the development tree." "Return the current abbreviated git hash of the development tree."
(handler-case (handler-case
(let ((git-hash `("git" "--no-pager" "log" "-n1" "--format=format:%h"))) (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) (multiple-value-bind (stdout stderr code)
(uiop:run-program git-hash :output :string) (uiop:run-program git-hash :output :string
:directory (asdf:system-source-directory :pgloader))
(declare (ignore code stderr)) (declare (ignore code stderr))
stdout))) stdout))
(condition (e) (condition (e)
;; in case anything happen, just return X.Y.Z~devel ;; in case anything happen, just return X.Y.Z~devel
(declare (ignore e)) (declare (ignore e))