diff --git a/.local/share/common-lisp/source/ambrevar/ffprobe.lisp b/.local/share/common-lisp/source/ambrevar/ffprobe.lisp index c16a448c..c2e128f9 100644 --- a/.local/share/common-lisp/source/ambrevar/ffprobe.lisp +++ b/.local/share/common-lisp/source/ambrevar/ffprobe.lisp @@ -1,4 +1,5 @@ (uiop:define-package ambrevar/ffprobe + (:nicknames #:ffprobe) (:documentation "FFprobe abstraction.") (:use #:common-lisp) (:use #:trivia) @@ -30,7 +31,7 @@ (attached-pic 0) (timed-thumbnails 0)) (:accessor-name-transformer #'name-identity) - (:export-slot-names-p t) + (:export-accessor-names-p t) (:export-class-name-p t)) (defclass* media-stream () ; REVIEW: `stream' is reserved by CL. @@ -93,7 +94,7 @@ (side-data-list '()) (tags '())) (:accessor-name-transformer #'name-identity) - (:export-slot-names-p t) + (:export-accessor-names-p t) (:export-class-name-p t)) (defclass* media-format () ; REVIEW: `format' is reserved by CL. @@ -109,7 +110,7 @@ (probe-score 0) (tags '())) (:accessor-name-transformer #'name-identity) - (:export-slot-names-p t) + (:export-accessor-names-p t) (:export-class-name-p t)) (defun normalize-cl-json-keywords (sym)