mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
41 lines
1.4 KiB
Common Lisp
41 lines
1.4 KiB
Common Lisp
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|Show the roswell version information
|
|
exec ros -Q -m roswell -N roswell -- $0 "$@"
|
|
|#
|
|
|
|
(progn
|
|
(roswell:include "util")
|
|
(roswell:quicklisp :environment nil))
|
|
|
|
(defpackage :ros.script.version.3668210994
|
|
(:use :cl :ros))
|
|
(in-package :ros.script.version.3668210994)
|
|
|
|
(defun main (&rest argv)
|
|
(declare (ignore argv))
|
|
(let ((revision (version "revision"))
|
|
(curl (version "curl"))
|
|
(asdf (version "asdf"))
|
|
(conf (version "confdir"))
|
|
(variant (version "sbcl-bin-variant"))
|
|
(home (roswell.util:homedir)))
|
|
(unless (zerop (length revision))
|
|
(setf revision (format nil "(~A)" revision)))
|
|
(format *error-output* "~A~A~%build with ~A~%"
|
|
(version "package") revision
|
|
(version "cc"))
|
|
(unless (zerop (length curl))
|
|
(format *error-output* "libcurl=~A~%" curl))
|
|
(unless (zerop (length asdf))
|
|
(format *error-output* "ASDF=~A~%" asdf))
|
|
(format *error-output* "Quicklisp=~A~%Dist=~A~%"
|
|
(ql:client-version)
|
|
(ql-dist:version (ql-dist:find-dist "quicklisp")))
|
|
(format *error-output* "lispdir='~A'~%" (opt "lispdir"))
|
|
(format *error-output* "homedir='~A'~%" home)
|
|
(unless (or (zerop (length conf)) (equal home conf))
|
|
(format *error-output* "configdir='~A'~%" conf))
|
|
(format *error-output* "sbcl-bin-variant='~A'~%" variant)))
|
|
;;; vim: set ft=lisp lisp:
|