diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-02 13:08:22 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-06 12:23:51 -0700 |
commit | 8d1f11857c1b4988c554df5bf59920a2b75ec4c2 (patch) | |
tree | 1323dffcceab9a1cbaeac948ff12d64c9b3e58db /src/connection/sbcl.lisp | |
parent | 41b04c179964b7cc6a83e6749c436b3ba6cb0d39 (diff) | |
download | consfigurator-8d1f11857c1b4988c554df5bf59920a2b75ec4c2.tar.gz |
use ~S not ~A when printing the program we sent
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/sbcl.lisp')
-rw-r--r-- | src/connection/sbcl.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/connection/sbcl.lisp b/src/connection/sbcl.lisp index aefdb9d..d69fcd9 100644 --- a/src/connection/sbcl.lisp +++ b/src/connection/sbcl.lisp @@ -50,6 +50,6 @@ recommended.")) (unless (zerop exit) ;; print FORMS not PROGRAM because latter might contain sudo passwords (failed-change - "~&Remote Lisp failed; stderr was:~%~%~A~&~%Program we sent:~%~%~A" + "~&Remote Lisp failed; stderr was:~%~%~A~&~%Program we sent:~%~%~S" err forms)))) nil) |