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

uiop/os:chdir -> ros.util:chdir

Browse source
This commit is contained in:
SANO Masatoshi 2016-02-14 22:19:01 +09:00
parent 959945e558
commit 2496ec3e32
1 changed files with 5 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/install-clisp.lisp
View file

@ -75,8 +75,7 @@
(uri "https://raw.githubusercontent.com/Homebrew/homebrew/2fb8cb1a2279f80dc89900b3ebaca9e5afc90494/Library/Formula/clisp.rb"))
(format t "~&Downloading patch: ~A~%" uri)
(download uri file)
(uiop/os:chdir (get-opt "src"))
(format t "~&chdir ~A~%" (get-opt "src"))
(ros.util:chdir (get-opt "src"))
(format t "~%Applying patch:~%")
(uiop/run-program:run-program (format nil "git apply ~A" file) :output t))
(cons t argv))
@ -97,8 +96,7 @@
"")
(get-opt "prefix")))
(*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
(uiop/os:chdir src)
(format t "~&chdir ~A~%" src)
(ros.util:chdir src)
(uiop/run-program:run-program cmd :output t :ignore-error-status t)))
(cons t argv))
@ -113,8 +111,7 @@
(let* ((src (namestring (namestring (merge-pathnames "src/" (get-opt "src")))))
(cmd (format nil "ulimit -s 16384 && make"))
(*standard-output* (make-broadcast-stream out #+sbcl(make-instance 'count-line-stream))))
(uiop/os:chdir src)
(format t "~&chdir ~A~%" src)
(ros.util:chdir src)
(uiop/run-program:run-program cmd :output t :ignore-error-status t)))
(cons t argv))
@ -126,8 +123,7 @@
(format t "~&prefix: ~s~%" impl-path)
(ensure-directories-exist impl-path)
(ensure-directories-exist log-path)
(uiop/os:chdir src)
(format t "~&chdir ~A~%" src)
(ros.util:chdir src)
(with-open-file (out log-path :direction :output :if-exists :append :if-does-not-exist :create)
(format out "~&--~&~A~%" (date))
(let ((*standard-output* (make-broadcast-stream
@ -139,8 +135,7 @@
(defun clisp-clean (argv)
(format t "~&Cleaning~%")
(let ((src (namestring (merge-pathnames "src/" (get-opt "src")))))
(uiop/os:chdir src)
(format t "~&chdir ~A~%" src)
(ros.util:chdir src)
(let* ((out (make-broadcast-stream))
(*standard-output* (make-broadcast-stream
out #+sbcl(make-instance 'count-line-stream))))