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 ros update for github installed system named owner/repo (#578)
Some checks failed
Linux / build (musl64, x86_64, -glibc2.31) (push) Has been cancelled
Details
Linux / build (musl64, x86_64, -musl) (push) Has been cancelled
Details
Linux / build (riscv64, linux/riscv64, musl64, riscv64, ) (push) Has been cancelled
Details
Linux / build (riscv64, linux/riscv64, musl64, riscv64, -glibc2.31) (push) Has been cancelled
Details
Linux / build (riscv64, linux/riscv64, musl64, riscv64, -musl) (push) Has been cancelled
Details
osx / build (sbcl-bin/2.3.8, arm64) (push) Has been cancelled
Details
osx / build (sbcl-bin/2.3.8, x86-64) (push) Has been cancelled
Details
windows / build-windows (i686, i686, 32) (push) Has been cancelled
Details
windows / build-windows (x86_64, amd64, 64) (push) Has been cancelled
Details
windows / build-windows-arm64 (push) Has been cancelled
Details
Linux / build (linux/amd64, deb, deb, x86-64) (push) Has been cancelled
Details
Linux / build (, linux/amd64, musl) (push) Has been cancelled
Details
Linux / build (aarch64, linux/arm64, musl64, arm64, ) (push) Has been cancelled
Details
Linux / build (aarch64, linux/arm64, musl64, arm64, -glibc2.31) (push) Has been cancelled
Details
Linux / build (aarch64, linux/arm64, musl64, arm64, -musl) (push) Has been cancelled
Details
Linux / build (linux/amd64, pandoc, docs, x86-64) (push) Has been cancelled
Details
Linux / build (musl64, x86_64, ) (push) Has been cancelled
Details

Browse source
This commit is contained in:
SANO,Masatoshi 2026-07-17 17:11:08 +09:00
parent 05a2c2fa3b
commit 267ff72edc
1 changed files with 11 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/update.ros
View file

@ -26,10 +26,17 @@ exec ros -Q -m roswell -N roswell -- $0 "$@"
;; update systems ;; update systems
(dolist (alias argv) (dolist (alias argv)
(loop (loop
with path = (ignore-errors with path = (or
(and (find #\/ alias)
(let ((dir (merge-pathnames
(format nil "local-projects/~A/" alias)
(roswell.util:homedir))))
(when (probe-file (merge-pathnames ".git/" dir))
dir)))
(ignore-errors
(make-pathname (make-pathname
:type nil :name nil :type nil :name nil
:defaults (asdf:system-source-file (asdf:find-system alias)))) :defaults (asdf:system-source-file (asdf:find-system alias)))))
for f in *update-functions* for f in *update-functions*
for r = (and path (funcall f path)) for r = (and path (funcall f path))
when r do (roswell:roswell `("install" ,alias)) when r do (roswell:roswell `("install" ,alias))