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

copy rosscript to ~/.roswell/bin with and without ros extention.

Browse source
This commit is contained in:
SANO Masatoshi 2017-02-15 21:40:06 +09:00
parent efad7ea41d
commit 7e1a595a90
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -130,7 +130,7 @@
(make-pathname
:defaults (merge-pathnames "bin/" (homedir))
:name (pathname-name from)
:type (unless (or #+unix (equalp (pathname-type from) "ros"))
:type (unless (or (equalp (pathname-type from) "ros"))
(pathname-type from))))))
(format *error-output* "~&~A~%" to)
(uiop/stream:copy-file from to)
@ -138,7 +138,11 @@
#+nil(if (equalp (pathname-type from) "ros")
(ros:roswell `("build" ,from "-o" ,to) :interactive nil)
(uiop/stream:copy-file from to))
#+sbcl(sb-posix:chmod to #o700)))
#+sbcl(sb-posix:chmod to #o700)
#-unix
(when (equalp (pathname-type from) "ros")
(setf (pathname-type to) "ros")
(uiop/stream:copy-file from to))))
(defun install-system-script (system)
(let ((step 0))