Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 8639aa1)
config.lsp: implement uname stub for ecl-min
authorDaniel Kochmański <daniel@turtleware.eu>
Mon, 24 Aug 2015 06:41:27 +0000 (08:41 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Mon, 24 Aug 2015 06:41:27 +0000 (08:41 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/lsp/config.lsp.in patch | blob | blame | history

diff --git a/src/lsp/config.lsp.in b/src/lsp/config.lsp.in
index ee8bb9d..e4eb842 100644 (file)
--- 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
 ;;
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)