CL-USER> (macroexpand-1 '(deb-packager:define-deb-package foo
                          (:architecture "amd64")
                          (:depends ("vim")) ; optional
                          (:description "foobar bar qux")
                          (:long-description "foo bar
bar
qux") ; optional
                          (:maintainer "Foo Bar <foo@bar.com>")
                          (:changelog
                           (:version "1.0-1"
                            :author "Foo Bar <foo@bar.com>"
                            :message "Lorem ipsum."
                            :date 1434665940) ;; unix timestamp
                           (:version "1.1-1"
                            :author "Bar Foo <bar@foo.com>"
                            :message "Dolor sit amet."
                            :date 1434665998))
                          (:files
                           (:path #p"usr/bin/foo" ; path to install to, without leading slash
                            ;; :content is a byte vector of the file's content.
                            :content (alexandria:read-file-into-byte-vector
                                      (asdf:system-relative-pathname "deb-packager-test" "t/fixtures/foo"))
                            :mode 755)
                           (:path #p"usr/bin/bar"
                            :content (alexandria:read-file-into-byte-vector
                                      (asdf:system-relative-pathname "deb-packager-test" "t/fixtures/bar"))))))
(LET* ((DEB-PACKAGER::CHANGELOG-ENTRIES
        (MAKE-ARRAY 2 :INITIAL-CONTENTS
                    (LIST
                     (MAKE-INSTANCE 'DEB-PACKAGER::CHANGELOG-ENTRY :VERSION
                                    "1.0-1" :AUTHOR "Foo Bar <foo@bar.com>"
                                    :MESSAGE "Lorem ipsum." :DATE 1434665940)
                     (MAKE-INSTANCE 'DEB-PACKAGER::CHANGELOG-ENTRY :VERSION
                                    "1.1-1" :AUTHOR "Bar Foo <bar@foo.com>"
                                    :MESSAGE "Dolor sit amet." :DATE
                                    1434665998))))
       (PACKAGE
        (MAKE-INSTANCE 'DEB-PACKAGER::DEB-PACKAGE :NAME 'FOO :CHANGELOG
                       DEB-PACKAGER::CHANGELOG-ENTRIES :DESCRIPTION
                       "foobar bar qux" :ARCHITECTURE "amd64" :DEPENDS '("vim")
                       :LONG-DESCRIPTION "foo bar
bar
qux"
                       :MAINTAINER "Foo Bar <foo@bar.com>"))
       (DEB-PACKAGER::FILES
        (MAKE-ARRAY 2 :INITIAL-CONTENTS
                    (LIST
                     (MAKE-INSTANCE 'DEB-PACKAGER::DEB-FILE :PATH
                                    #P"usr/bin/foo" :CONTENT
                                    (ALEXANDRIA.0.DEV:READ-FILE-INTO-BYTE-VECTOR
                                     (ASDF/SYSTEM:SYSTEM-RELATIVE-PATHNAME
                                      "deb-packager-test" "t/fixtures/foo"))
                                    :SIZE
                                    (LENGTH
                                     (ALEXANDRIA.0.DEV:READ-FILE-INTO-BYTE-VECTOR
                                      (ASDF/SYSTEM:SYSTEM-RELATIVE-PATHNAME
                                       "deb-packager-test" "t/fixtures/foo")))
                                    :MODE 755)
                     (MAKE-INSTANCE 'DEB-PACKAGER::DEB-FILE :PATH
                                    #P"usr/bin/bar" :CONTENT
                                    (ALEXANDRIA.0.DEV:READ-FILE-INTO-BYTE-VECTOR
                                     (ASDF/SYSTEM:SYSTEM-RELATIVE-PATHNAME
                                      "deb-packager-test" "t/fixtures/bar"))
                                    :SIZE
                                    (LENGTH
                                     (ALEXANDRIA.0.DEV:READ-FILE-INTO-BYTE-VECTOR
                                      (ASDF/SYSTEM:SYSTEM-RELATIVE-PATHNAME
                                       "deb-packager-test" "t/fixtures/bar")))
                                    :MODE 644)))))
  (DEB-PACKAGER::INITIALIZE-FILES PACKAGE DEB-PACKAGER::FILES)
  (DEB-PACKAGER::WRITE-DEB-FILE (DEB-PACKAGER::PACKAGE-PATHNAME PACKAGE)
                                PACKAGE))