diff options
| author | ckonstanski <carlos.konstanski@olo.com> | 2026-01-14 22:35:14 -0700 |
|---|---|---|
| committer | ckonstanski <carlos.konstanski@olo.com> | 2026-01-14 22:35:14 -0700 |
| commit | f1e2214d01ae9d979fd42166133aa5066a42f956 (patch) | |
| tree | 102432a06ec1ccc97d4ff7808103be494b5a77a0 /src | |
| parent | 2e03e8c150698b0f735a327933f139a93e18f682 (diff) | |
fix shell-command for mac
Diffstat (limited to 'src')
| -rw-r--r-- | src/core.lisp | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/core.lisp b/src/core.lisp index 0689187..fef1c53 100644 --- a/src/core.lisp +++ b/src/core.lisp @@ -180,9 +180,10 @@ make it the specified length." atom of the list is a string that contains one line of the output." (let ((output (make-array '(0) :element-type 'character :fill-pointer 0 :adjustable t))) (with-output-to-string (stream output) - (uffi:run-shell-command command :output stream)) - (loop for line in (ppcre:split #\Newline output) - collect line))) + (let ((return-code (uffi:run-shell-command command :output stream))) + (values (loop for line in (ppcre:split #\Newline output) + collect line) + return-code))))) (defmacro sendmail (mail-server from to subject message &key display-name reply-to html-message authentication ssl attachments) "Wrapper around `cl-smtp:send-email'. `attachments' needs to be a |