1.1--- a/lisp/lib/packy/proto.lisp Tue Jun 11 22:44:32 2024 -0400
1.2+++ b/lisp/lib/packy/proto.lisp Wed Jun 12 17:34:07 2024 -0400
1.3@@ -1,31 +1,34 @@
1.4 (in-package :packy/core)
1.5
1.6-(defclass pk-id (id)
1.7+(defclass package-id (id)
1.8 ((id :initform (make-array 16 :element-type 'octet) :initarg :id :type (octet-vector 16) :accessor id)))
1.9
1.10-(defmethod make-id ((kind (eql :pk)))
1.11- (make-instance 'pk-id))
1.12+(defmethod make-id ((kind (eql :package)))
1.13+ (make-instance 'package-id))
1.14
1.15-(defmethod make-random-id ((kind (eql :pk)))
1.16+(defmethod make-random-id ((kind (eql :package)))
1.17 (let ((l))
1.18 (dotimes (i 16) (push (random 255) l))
1.19 (let ((v (make-array 16 :element-type 'octet
1.20 :initial-contents l)))
1.21- (make-instance 'pk-id :id v))))
1.22+ (make-instance 'package-id :id v))))
1.23
1.24-(defmethod print-object ((self pk-id) stream)
1.25+(defmethod print-object ((self package-id) stream)
1.26 (print-unreadable-object (self stream)
1.27 (format stream "~A" (octet-vector-to-hex-string (id self)))))
1.28
1.29-(defclass abstract-package (id) ())
1.30+(defclass abstract-package () ())
1.31
1.32-(defgeneric pk-pack (self &key &allow-other-keys))
1.33-(defgeneric pk-unpack (self &key &allow-other-keys))
1.34-(defgeneric pk-install (self &key &allow-other-keys))
1.35-(defgeneric pk-uninstall (self &key &allow-other-keys))
1.36-(defgeneric pk-update (self &key &allow-other-keys))
1.37-(defgeneric pk-push (self &key &allow-other-keys))
1.38-(defgeneric pk-pull (self &key &allow-other-keys))
1.39-(defgeneric pk-query (self &key &allow-other-keys))
1.40-(defgeneric pk-sync (self &key &allow-other-keys))
1.41-(defgeneric pk-build (self &key &allow-other-keys))
1.42+(defgeneric pack (self &key &allow-other-keys))
1.43+(defgeneric unpack (self &key &allow-other-keys))
1.44+(defgeneric install-package (self &key &allow-other-keys))
1.45+(defgeneric uninstall-package (self &key &allow-other-keys))
1.46+(defgeneric update-package (self &key &allow-other-keys))
1.47+(defgeneric push-package (self &key &allow-other-keys))
1.48+(defgeneric pull-package (self &key &allow-other-keys))
1.49+(defgeneric query-package (self &key &allow-other-keys))
1.50+(defgeneric sync-package (self &key &allow-other-keys))
1.51+(defgeneric build-package (self &key &allow-other-keys))
1.52+(defgeneric prepare-package (self &key &allow-other-keys))
1.53+(defgeneric check-package (self &key &allow-other-keys))
1.54+(defgeneric package-version (self &key &allow-other-keys))