mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
15 lines
450 B
Common Lisp
15 lines
450 B
Common Lisp
(roswell:include "util-install")
|
|
(defpackage :roswell.list.asdf
|
|
(:use :cl :roswell.install :roswell.util :roswell.locations)
|
|
(:export :asdf-get-version))
|
|
(in-package :roswell.list.asdf)
|
|
|
|
(defun asdf-get-version ()
|
|
(cddr (github-version
|
|
(asdf-git-version-uri) "asdf" (lambda (href) (subseq href (1+ (position #\/ href :from-end t)))))))
|
|
|
|
(defun asdf (&rest r)
|
|
(declare (ignore r))
|
|
(dolist (i (asdf-get-version))
|
|
(format t "~A~%" i)))
|