From 98fc12d3a6d6d1dec5b24be43a3a1c26852f5d8a Mon Sep 17 00:00:00 2001
From: =?utf8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Mon, 24 Aug 2015 08:41:27 +0200
Subject: [PATCH] config.lsp: implement uname stub for ecl-min
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
---
 src/lsp/config.lsp.in | 11 +++++++++++
 1 file changed, 11 insertions(+)

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
 ;;
-- 
2.9.0