39 lines
1,010 B
Text
39 lines
1,010 B
Text
|
#!/bin/sh
|
||
|
|
#|-*- mode:lisp -*-|#
|
||
|
|
#|
|
||
|
|
exec ros -Q -- $0 "$@"
|
||
|
|
|#
|
||
|
|
(progn ;;init forms
|
||
|
|
(ros:ensure-asdf)
|
||
|
|
#+quicklisp (ql:quickload '(cl-info
|
||
|
|
defmain)
|
||
|
|
:silent t))
|
||
|
|
|
||
|
|
(defpackage :ros.script.cl-info
|
||
|
|
(:use :cl)
|
||
|
|
(:import-from #:cl-info/core
|
||
|
|
#:make-cl-info
|
||
|
|
#:make-system-info)
|
||
|
|
(:import-from #:defmain
|
||
|
|
#:defmain))
|
||
|
|
(in-package :ros.script.cl-info)
|
||
|
|
|
||
|
|
|
||
|
|
(defmain main ((version "Show program version and exit."
|
||
|
|
:flag t)
|
||
|
|
&rest system)
|
||
|
|
"Show information about Lisp implementation and given systems. Useful when collecting information for bugreports."
|
||
|
|
|
||
|
|
(when version
|
||
|
|
(let* ((system (asdf:find-system :cl-info))
|
||
|
|
(version (asdf:component-version system)))
|
||
|
|
(format t "Version: ~A~%" version)
|
||
|
|
(uiop:quit 0)))
|
||
|
|
|
||
|
|
(princ (make-cl-info))
|
||
|
|
|
||
|
|
(loop for system-name in system
|
||
|
|
do (princ (make-system-info system-name))))
|
||
|
|
|
||
|
|
;;; vim: set ft=lisp lisp:
|