ambrevar/shell: Add `env' command.

.local/share/common-lisp/source/ambrevar/shell.lisp

@@ -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))))