From: Daniel Kochmański <daniel@turtleware.eu>
Date: Mon, 24 Aug 2015 06:41:27 +0000 (+0200)
Subject: config.lsp: implement uname stub for ecl-min
X-Git-Tag: ECL-16.0.0~1^2
X-Git-Url: http://git.pulsar-zone.net/?a=commitdiff_plain;h=98fc12d3a6d6d1dec5b24be43a3a1c26852f5d8a;p=ecl.git

config.lsp: implement uname stub for ecl-min

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---

diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index ee8bb9d..e4eb842 100644
--- a/src/lsp/config.lsp.in
+++ b/src/lsp/config.lsp.in
@@ -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
 ;;