diff --git a/src/calrissian-util.lfe b/src/calrissian-util.lfe index 3055123..24a6a53 100644 --- a/src/calrissian-util.lfe +++ b/src/calrissian-util.lfe @@ -1,9 +1,18 @@ (defmodule calrissian-util - (export (module-info 1) + (export (get-version 0) + (get-versions 0) + (module-info 1) (module-info 2) (implements? 2) (exports? 2))) +(defun get-version () + (lutil:get-app-version 'calrissian)) + +(defun get-versions () + (++ (lutil:get-versions) + `(#(calrissian ,(get-version))))) + (defun module-info (((tuple module _args)) ;; Report exported function arities as (arity - 1) to account for