marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

PS: I'm an idiot.

Browse source
This commit is contained in:
Brit Butler 2012-08-29 13:14:32 -04:00
parent 394d3d3bb8
commit 43d439657a
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/util.lisp
View file

@ -36,19 +36,19 @@ on files that match the given extension."
(defun (setf current-directory) (path)
"Change the operating system's current directory to PATH."
#+sbcl (sb-posix:chdir pathspec)
#+ccl (setf (current-directory) pathspec)
#+ecl (si:chdir pathspec)
#+cmucl (unix:unix-chdir (namestring pathspec))
#+clisp (ext:cd pathspec)
#+sbcl (sb-posix:chdir path)
#+ccl (setf (current-directory) path)
#+ecl (si:chdir path)
#+cmucl (unix:unix-chdir (namestring path))
#+clisp (ext:cd path)
#-(or sbcl ccl ecl cmucl clisp) (error "Not implemented yet."))
(defmacro with-current-directory (to-path &body body)
"Change the current OS directory to TO-PATH and execute BODY in
(defmacro with-current-directory (path &body body)
"Change the current OS directory to PATH and execute BODY in
an UNWIND-PROTECT, then change back to the current directory."
(alexandria:with-gensyms (old)
`(let ((,old (current-directory)))
(unwind-protect (progn
(setf (current-directory) ,to-path)
(setf (current-directory) ,path)
,@body)
(setf (current-directory) ,old)))))