diff --git a/Makefile.am b/Makefile.am index 19ec016..541ad3d 100644 --- a/Makefile.am +++ b/Makefile.am @@ -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 \ diff --git a/lisp/update-default.lisp b/lisp/update-default.lisp new file mode 100644 index 0000000..a27c124 --- /dev/null +++ b/lisp/update-default.lisp @@ -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)) + ) diff --git a/lisp/update.ros b/lisp/update.ros index efc6d5c..54d1e65 100644 --- a/lisp/update.ros +++ b/lisp/update.ros @@ -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