ambrevar/shell: Add `env' command.
parent
87c6e235fa
commit
9c3bafb9e9
|
@ -13,6 +13,13 @@
|
|||
(defun date ()
|
||||
(local-time:format-rfc1123-timestring nil (local-time:now)))
|
||||
|
||||
(export-always 'env)
|
||||
(defun env ()
|
||||
"Return the environment variables as an alist."
|
||||
(mapcar (lambda (line)
|
||||
(str:split "=" line :limit 2))
|
||||
(str:split (string #\newline) (run* "env"))))
|
||||
|
||||
(defun assert-program (program &rest more-programs) ; TODO: Is this useful for a REPL?
|
||||
(sera:and-let* ((missing-programs
|
||||
(delete-if #'sera:resolve-executable (cons program more-programs))))
|
||||
|
|
Loading…
Reference in New Issue