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

for the first time it should make directory.

Browse source
This commit is contained in:
SANO Masatoshi 2014-10-31 01:38:07 +09:00
parent 8deb852cb9
commit c3bbb65bb5
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/lisp/install/sbcl.lisp
View file

@ -66,9 +66,10 @@
(cons t argv))
(defun sbcl-make (argv)
(with-open-file (out (merge-pathnames (format nil "impls/log/~A-~A/make.log"
(getf argv :target) (getf argv :version))
(homedir))
(with-open-file (out (ensure-directories-exist
(merge-pathnames (format nil "impls/log/~A-~A/make.log"
(getf argv :target) (getf argv :version))
(homedir)))
:direction :output :if-exists :append :if-does-not-exist :create)
(format out "~A~%" (date))
(let* ((src (get-opt "src"))