clisp/kj-sandbox.lisp


1
2
3
4
5
6
7
8
9
10
11

;;;; kj-sandbox.lisp

(in-package #:kj-sandbox)
(require :uiop)

(defun test ()
  (format t "Hello ~a!~&"
          (uiop:getenv "USER"))
  (uiop:run-program "ip a" :output :string))

(test)