Commit 7e6a05ba99808bafefcd4d5635ebd2d5b78d4152

Thomas de Grivel 2022-11-03T18:58:22

probe

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
diff --git a/unix/probes.lisp b/unix/probes.lisp
index 51f032b..e3313ff 100644
--- a/unix/probes.lisp
+++ b/unix/probes.lisp
@@ -148,8 +148,8 @@
 
 (defmethod probe-symlink-target ((symlink symlink) (os os-unix))
   (let ((target (string-trim '(#\Newline)
-                             (run "readlink "
-                                  (sh-quote (resource-id symlink))))))
+                             (run-1 "readlink "
+                                    (sh-quote (resource-id symlink))))))
     (properties* target)))
 
 ;;  Directory