changelog shortlog graph tags branches changeset file revisions annotate raw help

Mercurial > core / lisp/lib/packy/proto.lisp

revision 439: ea4f008ad13f
parent 240: a3b65a8138ac
     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))