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

fix...

Browse source
This commit is contained in:
SANO Masatoshi 2017-06-22 02:22:08 +09:00
parent e1156882fc
commit a1ec0cc0f0
2 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/delete-git.lisp
View file

@ -5,7 +5,7 @@
(defun git (&rest argv)
(if (rest argv)
(dolist (x (rest argv) (roswell:quit 0))
(let* ((* (directory (merge-pathnames wild (first ql:*local-project-directories*))))
(let* ((* (directory (merge-pathnames "**/.git/" (first ql:*local-project-directories*))))
(* (mapcar (lambda (x) (directory (merge-pathnames "../*.asd" x))) *))
(* (apply #'append *))
(* (remove x * :test (complement #'equal) :key #'pathname-name))

3
lisp/git.ros
View file

@ -12,8 +12,7 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(in-package :ros.script.git.3702458293)
(defun main (&rest argv)
(let* ((name (pathname-name *load-pathname*))
(wild (format nil "**/.~A/" name)))
(let* ((name (pathname-name *load-pathname*)))
(roswell:exec
(cond
((equal (first argv) "clone")