mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-20 19:42:30 -08:00
config.lsp: implement uname stub for ecl-min
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
This commit is contained in:
parent
8639aa14d1
commit
98fc12d3a6
1 changed files with 11 additions and 0 deletions
|
|
@ -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
|
||||
;;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue