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

prepare new update method.

Browse source
This commit is contained in:
SANO Masatoshi 2019-05-23 15:29:07 +08:00
parent 07b973c837
commit 686e0eed9b
3 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Makefile.am
View file

@ -72,7 +72,7 @@ LISPS = helper.el \
install+msys2.lisp install+sigsegv.lisp install-asdf.lisp \
\
update.ros \
update-git.lisp update-hg.lisp update-quicklisp.lisp \
update-git.lisp update-hg.lisp update-quicklisp.lisp update-default.lisp \
\
list.ros \
list-default.lisp \

8
lisp/update-default.lisp Normal file
View file

@ -0,0 +1,8 @@
(roswell:include "util")
(defpackage :roswell.update.default
(:use :cl :roswell.util))
(in-package :roswell.update.default)
(defun default (&rest args)
(declare (ignore args))
)

5
lisp/update.ros
View file

@ -5,7 +5,7 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
|#
(progn ;;init forms
(roswell:ensure-asdf)
(roswell:include '("update-git" "update-hg")))
(roswell:include '("update-git" "update-hg" "update-default")))
(defpackage :ros.script.update.3692404755
(:use :cl :roswell.util))
@ -13,7 +13,8 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
(defvar *update-functions*
(list (module "update" "git")
(module "update" "hg")))
(module "update" "hg")
(module "update" "default")))
(defun main (&rest argv)
(if argv