# HG changeset patch
# User Richard Westhaver <ellis@rwest.io>
# Date 1717283762 14400
# Node ID a866723aac841fe653ab9069759166f0a4cf6e2e
# Parent  6b87df03cdafd52f94779adf0638f0d9bba64f86
init qmp

diff -r 6b87df03cdaf -r a866723aac84 lisp/ffi/zstd/tests.lisp
--- a/lisp/ffi/zstd/tests.lisp	Sat Jun 01 17:36:57 2024 -0400
+++ b/lisp/ffi/zstd/tests.lisp	Sat Jun 01 19:16:02 2024 -0400
@@ -1,8 +1,16 @@
+;;; zstd/tests.lisp --- Zstd FFI tests
+
+;;
+
+;;; Code:
 (defpackage :zstd/tests 
-    (:use :cl :rt :zstd))
+    (:use :cl :std :rt :zstd))
+
 (in-package :zstd/tests)
+
 (defsuite :zstd)
 (in-suite :zstd)
+
 (load-zstd)
 
 (deftest sanity ()
@@ -33,6 +41,3 @@
     (is (= 0 (zstd::zstd-iserror ret)))
     (zstd::zstd-compressstream cst out in)
     (is (= 0 (zstd::zstd-compressstream2 cst out in 0)))))
-
-
-    
diff -r 6b87df03cdaf -r a866723aac84 lisp/lib/box/box.asd
--- a/lisp/lib/box/box.asd	Sat Jun 01 17:36:57 2024 -0400
+++ b/lisp/lib/box/box.asd	Sat Jun 01 19:16:02 2024 -0400
@@ -1,7 +1,9 @@
 (defsystem :box
   :description "Kernel virtualization support for Lisp - wraps QEMU,archiso,etc."
   :depends-on (:std :cli :obj :dat :net :log)
-  :components ((:file "pkg"))
+  :components ((:file "pkg")
+               (:file "archiso")
+               (:file "qmp"))
   :in-order-to ((test-op (test-op :box/tests))))
 
 (defsystem :box/tests
diff -r 6b87df03cdaf -r a866723aac84 lisp/lib/box/pkg.lisp
--- a/lisp/lib/box/pkg.lisp	Sat Jun 01 17:36:57 2024 -0400
+++ b/lisp/lib/box/pkg.lisp	Sat Jun 01 19:16:02 2024 -0400
@@ -20,3 +20,8 @@
   (:nicknames :archiso)
   (:use :cl :std :cli/shell :dat/json :obj/cfg)
   (:export :*archiso-config* :*archiso-creds*))
+
+(defpackage :box/qmp
+  (:nicknames :qmp)
+  (:use :cl :std :dat/json :net/sans-io)
+  (:export :*archiso-config* :*archiso-creds*))
diff -r 6b87df03cdaf -r a866723aac84 lisp/lib/box/qmp.lisp
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/lisp/lib/box/qmp.lisp	Sat Jun 01 19:16:02 2024 -0400
@@ -0,0 +1,6 @@
+;;; box/qmp.lisp --- QEMU Monitor Protocol
+
+;;
+
+;;; Code:
+(in-package :box/qmp)