mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
31 lines
1,022 B
Common Lisp
31 lines
1,022 B
Common Lisp
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|
|
|
exec ros +A -Q -m roswell -N roswell -- $0 "$@"
|
|
|#
|
|
(progn ;;init forms
|
|
(ros:ensure-asdf)
|
|
(ignore-errors
|
|
#+quicklisp(ql:quickload '(:ql-checkout) :silent t)))
|
|
|
|
(defpackage :ros.script.checkout.3754705288
|
|
(:use :cl))
|
|
(in-package :ros.script.checkout.3754705288)
|
|
|
|
(defun main (&rest argv)
|
|
#+quicklisp
|
|
(ignore-errors
|
|
(unless (find-package :ql-checkout/config)
|
|
(funcall 'roswell.util:local-project-build-hash :rebuild t)
|
|
(ql:quickload '(:ql-checkout) :silent t))
|
|
(set (read-from-string "ql-checkout/config:*checkoutdir*")
|
|
(first roswell:*local-project-directories*)))
|
|
(cond ((not (find-package :ql-checkout))
|
|
(format t "checkout not supported~%"))
|
|
((equal (first argv) "update-all")
|
|
(uiop:symbol-call :ql-checkout :update :all))
|
|
((equal (first argv) "update")
|
|
(uiop:symbol-call :ql-checkout :update (rest argv)))
|
|
(t (uiop:symbol-call :ql-checkout :checkout argv nil))))
|
|
;;; vim: set ft=lisp lisp:
|