common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

move definition mingw-namestring

Browse source
This commit is contained in:
SANO Masatoshi 2016-06-30 08:43:33 +09:00
parent b795a3a249
commit b8a1c788eb
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/util-install-quicklisp.lisp
View file

@ -71,12 +71,6 @@
;;TBD
(declare (ignore path)))
#+win32
(defun mingw-namestring (path)
(string-right-trim (format nil "~%")
(uiop:run-program `(,(sh) "-lc" ,(format nil "cd ~S;pwd" (uiop:native-namestring path)))
:output :string)))
(defun start (argv)
(ensure-directories-exist (homedir))
#+win32

6
lisp/util-install.lisp
View file

@ -79,4 +79,10 @@
when (eql (aref href 0) #\/)
collect (funcall filter href)))))
#+win32
(defun mingw-namestring (path)
(string-right-trim (format nil "~%")
(uiop:run-program `(,(sh) "-lc" ,(format nil "cd ~S;pwd" (uiop:native-namestring path)))
:output :string)))
(pushnew :ros.install.util *features*)