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

do a bit more... on PS1

Browse source
This commit is contained in:
SANO Masatoshi 2015-10-02 14:15:53 +09:00
parent f227982a96
commit 77c3de2191
1 changed files with 16 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
scripts/install-for-ci.PS1
View file

@ -1,4 +1,4 @@
#|
#| -*- lisp -*-
function Expand-ZIPFile($file, $destination) {
$shell = new-object -com shell.application
$zip = $shell.NameSpace($file)
@ -21,7 +21,21 @@ Write-Host "downloaded" $uri
Expand-ZIPFile -File $env:ROSWELL_TARBALL_PATH -Destination $env:ROSWELL_DIR
&$env:ROSWELL_DIR\roswell\ros $MyInvocation.MyCommand.Definition
<# |#
(defun install-lisp (lisp)
(format t "Installing ~A..." lisp)
(cond ((equal lisp "sbcl-bin")
(ros:roswell `("use" ,lisp) :interactive))
(t
(ros:roswell `("install" ,lisp) :interactive)
(ros:roswell `("use" ,lisp) :interactive))))
(defun main (&rest argv)
(declare (ignorable argv))
(print "Hello, World!"))
(install-lisp (ros:getenv "LISP"))
(ros:roswell `("-e" ,(format nil "(format t ~S ~A ~A ~A)"
"~&~A ~A up and running! (ASDF ~A)~2%"
"(lisp-implementation-type)"
"(lisp-implementation-version)"
"(asdf:asdf-version)")) :interactive))
;#>