config.lsp: implement uname stub for ecl-min

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
Daniel Kochmański 2015-08-24 08:41:27 +02:00
parent 8639aa14d1
commit 98fc12d3a6

View file

@ -26,6 +26,17 @@
@(return) = output;
}" :one-liner nil))
#+(and ecl-min uname)
(defun uname ()
"A poor man's uname"
(list "@SOFTWARE_TYPE@"
NIL #| hostname |#
#.(let ((aux "@SOFTWARE_VERSION@"))
(when (plusp (length aux))
aux))
NIL #| kernel version |#
"@ARCHITECTURE@"))
;;
;; * Short and long site names
;;