changelog shortlog graph tags branches files raw help

Mercurial > core / changeset: init qmp

changeset 394: a866723aac84
parent 393: 6b87df03cdaf
child 395: d876b572b5b9
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 01 Jun 2024 19:16:02 -0400
files: lisp/ffi/zstd/tests.lisp lisp/lib/box/box.asd lisp/lib/box/pkg.lisp lisp/lib/box/qmp.lisp
description: init qmp
     1.1--- a/lisp/ffi/zstd/tests.lisp	Sat Jun 01 17:36:57 2024 -0400
     1.2+++ b/lisp/ffi/zstd/tests.lisp	Sat Jun 01 19:16:02 2024 -0400
     1.3@@ -1,8 +1,16 @@
     1.4+;;; zstd/tests.lisp --- Zstd FFI tests
     1.5+
     1.6+;;
     1.7+
     1.8+;;; Code:
     1.9 (defpackage :zstd/tests 
    1.10-    (:use :cl :rt :zstd))
    1.11+    (:use :cl :std :rt :zstd))
    1.12+
    1.13 (in-package :zstd/tests)
    1.14+
    1.15 (defsuite :zstd)
    1.16 (in-suite :zstd)
    1.17+
    1.18 (load-zstd)
    1.19 
    1.20 (deftest sanity ()
    1.21@@ -33,6 +41,3 @@
    1.22     (is (= 0 (zstd::zstd-iserror ret)))
    1.23     (zstd::zstd-compressstream cst out in)
    1.24     (is (= 0 (zstd::zstd-compressstream2 cst out in 0)))))
    1.25-
    1.26-
    1.27-    
     2.1--- a/lisp/lib/box/box.asd	Sat Jun 01 17:36:57 2024 -0400
     2.2+++ b/lisp/lib/box/box.asd	Sat Jun 01 19:16:02 2024 -0400
     2.3@@ -1,7 +1,9 @@
     2.4 (defsystem :box
     2.5   :description "Kernel virtualization support for Lisp - wraps QEMU,archiso,etc."
     2.6   :depends-on (:std :cli :obj :dat :net :log)
     2.7-  :components ((:file "pkg"))
     2.8+  :components ((:file "pkg")
     2.9+               (:file "archiso")
    2.10+               (:file "qmp"))
    2.11   :in-order-to ((test-op (test-op :box/tests))))
    2.12 
    2.13 (defsystem :box/tests
     3.1--- a/lisp/lib/box/pkg.lisp	Sat Jun 01 17:36:57 2024 -0400
     3.2+++ b/lisp/lib/box/pkg.lisp	Sat Jun 01 19:16:02 2024 -0400
     3.3@@ -20,3 +20,8 @@
     3.4   (:nicknames :archiso)
     3.5   (:use :cl :std :cli/shell :dat/json :obj/cfg)
     3.6   (:export :*archiso-config* :*archiso-creds*))
     3.7+
     3.8+(defpackage :box/qmp
     3.9+  (:nicknames :qmp)
    3.10+  (:use :cl :std :dat/json :net/sans-io)
    3.11+  (:export :*archiso-config* :*archiso-creds*))
     4.1--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     4.2+++ b/lisp/lib/box/qmp.lisp	Sat Jun 01 19:16:02 2024 -0400
     4.3@@ -0,0 +1,6 @@
     4.4+;;; box/qmp.lisp --- QEMU Monitor Protocol
     4.5+
     4.6+;;
     4.7+
     4.8+;;; Code:
     4.9+(in-package :box/qmp)