|
@@ -8,7 +8,7 @@ If ARGS is provided, use (apply 'format nil PATH ARGS) as the value of PATH."
|
8
|
8
|
(defun run-program (program &rest args)
|
9
|
9
|
"Take a PROGRAM and execute the corresponding shell command. If ARGS is provided,
|
10
|
10
|
use (apply 'format nil PROGRAM ARGS) as the value of PROGRAM."
|
11
|
|
- (trivial-shell:shell-command (apply 'format nil program args)))
|
|
11
|
+ (inferior-shell:run (apply 'format nil program args) :show t))
|
12
|
12
|
|
13
|
13
|
(defun update-symlink (path target)
|
14
|
14
|
"Update the symlink at PATH to point to TARGET."
|
|
@@ -28,7 +28,7 @@ on files that match the given extension."
|
28
|
28
|
(defun current-directory ()
|
29
|
29
|
"Return the operating system's current directory."
|
30
|
30
|
#+sbcl (sb-posix:getcwd)
|
31
|
|
- #+ccl (current-directory)
|
|
31
|
+ #+ccl (ccl:current-directory)
|
32
|
32
|
#+ecl (si:getcwd)
|
33
|
33
|
#+cmucl (unix:unix-current-directory)
|
34
|
34
|
#+clisp (ext:cd)
|
|
@@ -37,7 +37,7 @@ on files that match the given extension."
|
37
|
37
|
(defun (setf current-directory) (path)
|
38
|
38
|
"Change the operating system's current directory to PATH."
|
39
|
39
|
#+sbcl (sb-posix:chdir path)
|
40
|
|
- #+ccl (setf (current-directory) path)
|
|
40
|
+ #+ccl (setf (ccl:current-directory) path)
|
41
|
41
|
#+ecl (si:chdir path)
|
42
|
42
|
#+cmucl (unix:unix-chdir (namestring path))
|
43
|
43
|
#+clisp (ext:cd path)
|