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

test setup with 'ros install sbcl-bin/1.5.2'

Browse source
This commit is contained in:
SANO Masatoshi 2019-05-30 20:38:47 +08:00
parent 34f735234c
commit 92d8096656
2 changed files with 10 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/init.ros
View file

@ -1,9 +1,10 @@
#!/bin/sh
#|-*- mode:lisp -*-|#
#|Creates a new ros script, optionally based on a template.
exec ros +A -Q -m roswell -N roswell -- $0 "$@"
exec ros +Q -m roswell -N roswell -- $0 "$@"
|#
(progn
(ros:ensure-asdf)
(roswell:include "util-main"))
(defpackage :ros.script.init.3672012201
@ -11,11 +12,12 @@ exec ros +A -Q -m roswell -N roswell -- $0 "$@"
(in-package :ros.script.init.3672012201)
(defun main (&rest r)
(let ((ql:*local-project-directories*
(append (mapcar (lambda (path)
(merge-pathnames "templates/" path))
ql:*local-project-directories*)
ql:*local-project-directories*)))
(let (#+quicklisp
(ql:*local-project-directories*
(append (mapcar (lambda (path)
(merge-pathnames "templates/" path))
ql:*local-project-directories*)
ql:*local-project-directories*)))
(module-main r :default (or (when (equal (roswell:opt "init.use-checkout") "true")
(roswell:opt "init.default"))
"default")))

6
lisp/setup.ros
View file

@ -70,17 +70,15 @@ exec ros -Q -N roswell -- $0 "$@"
(dump-dir (dump-dir (and (equal "roswell" dump) "roswell"))))
(when (roswell:verbose)
(format *error-output* "Targets for dump:~%~{~A~%~}~%" dir))
(when (or (not (equal dump "roswell"))
(roswell:verbose))
(format *error-output* "building dump:~A~%" (make-pathname :defaults dump-dir :name dump :type "core")))
(force-output *error-output*)
(unless (ignore-errors
(when (> (file-write-date
(make-pathname :defaults dump-dir :name dump :type "core"))
(loop for i in dir
maximize (file-write-date i)))
(format *error-output* "up to date. stop~%")
t))
(format *error-output* "building dump:~A~%"
(make-pathname :defaults dump-dir :name dump :type "core"))
(roswell:roswell `(,(if (roswell:verbose) "-v" "") " +R" " +A" " -Q"
,(let ((env* (opt "*roswellenv")))
(if (and env*